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Announcing the 
add 16K! 

Jade's memory expansion kit contains everything you 
need lo add 16K of memory to either your keyboard 
or expansion interface in jusi 15 minutes. Kit includes 
memory chips. DIP programming blocks, protective 
anti-static material, and concise, easy to follow 
instructions. Jade unconditionally backs this kit with 
a 90 day warranty on all pans. 



easy way to 



Price 
S75.00 




vista uao mini dish 
System for trs-bo 

Introducing the 

Vfttta V80 Mini Disk System 

23% MORE STORAGE CAPACITY- 

mcresses your uiaoio ftoraoc caoacity 
23% from 55.000 W 67.BO0 byfei on 
drive one. 

FASTER DRIVE- 

Eiectronlcaliy edual lo ttie I HS-SO 
Mmi-DliH System, but up to 6 times 
faster (t rack- lo- track access m Sms 
for trie V80 versus aoms for THS-S0I. 

HE RE"S WHAT YOU GET: 

Minifloppy <I«k drive/Power Supply/ 
neqular Doaro/Comoect cate'Cable. 

DOUBLE DENSITY FOR 

DOUBLE STORAGE- 

The V80 w'i work wilt trie vMsu aouoift- 

density expansion .inlt wnan available. 

SHIPPED TO YOU READY TO RUN— 

simply lane It out of tne oo*. P<u« it in 
and you're ready to run. 

Raqutnra 16K Ram, Live! II Basic. Eh. R. 




Special 
Introductory 

Price 




Integral 
Data Systems 
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iP-125 Integral Data Syitem IP-125 Friction Feed Printer 
•96 upper & lower case ASO ■ cnaracter eat 

• Enrianced character control 

• Serial RS232C Interface. Std. wiring. Parallel TIL optional 

■ BO column line, 256 by!e multiline Buffer 

IP-225 Inteerai Data System IP-225 Tractor Feed Printer 
■All standard features of iP-t25 

■ Tractor feed paoer drive 

■ Forms Control Option (P1250J 

TRS-80 Interlace and Cable S4Q.00 



S799 
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Computer Products 



■MOi W BOaErn^H-S AVENUE 
Department "M" 
HAWTHORNE CALIF HEO 
us*. 



Tciconune. 

1313) GT9-3313 

reOC'l 421-6000 CerrVnenuu U 5 

|HCO) 282-1710 Innido Cafilornia 



Cetn, i»M>t, mono* oroart. ana credit carat accepted- Ada 
'■alahl cnaree al t? iO lor orders \int>*> 10 IB*, ana 5)1.00 service 
tiaree for woeri under 110.00, And 6*i sales ia» on an pans 
delivered in CaH'O'tua Discount! •■•■labia at OEM auamiliav 

write for our free catalog 

All onces lUDject to change without notice 



Software for the TRS-eo 

THE LIBRARY 100 FROM TBS. INC 

100 very usatui Ltvsrf II Pr og/a n ra on 5 Cassatiss, pack*o*c in an 

attractive case, ill lor on! 1 . S4B-BB 

THE ELECTRIC PENCIL FOR TRS-80 
FROM SHRAYER SOFTWARE 

The llme-leateci word procaaajngao 'twere package pai.kaiga now 
odapled for TRS-80 owners fLe\<- S89.9& 

MICROCHESS FROM SAIALL SYSVEM SOFTWARE 
Make your TRS-80 (Lewi H) into a pretty good cWas pieyer 

Only S1B.B9 
Otner pfOBrams aveilepJet incruoa Game ol Lite ft 4.83 

Airfield $14.05 
ESP-1 |8080 AaaenTblsH.'cilifO') «2S\*S 

AVAILABLE SOOMl Many more Drootania plus a cawptal* 
Software Catalog. 



EXPANDOR'S BLACK BOX PRINTER 



This eaxnataciar ASCII Kitoac- 
wlln 80-COlumn tapeoH'if > omutiii 
and uses stande>d M"t~ Dap*' -"□ nif 
uiar typewfta' liDDntv Sate, cover 
ano parallel interface are mciiideC 
Assembled and complete wiin nemJfi> 
and 0OCUm»nlatlOH 



only $470 uii 



(90 cay manufacturer's warrant 
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Power Supply 'or TRfi-80/Blaeli Boa Primer 
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TRENDCOM IOO 

Intelligent Printer 
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TRS-80 
Interlace Cable 
»45°<> 

Apple II 
Interface & Cable 

*60°° 



■ 40 cnanctar par 

• Li* c«f dietmal Bape* 

• 96 rtienacte* sM 

• Mi=ro«wocawar contrp0»c 

. Eitli.eilio.iul luc* ahead prlntino 
» Oj.tel upeaaftuit 

• No •xtamai how" supplies 

two df Men pssrU 
■ 

• Clear 5 a 7 charectara 

• *i*.ra*vw» matai mnd olaBUC caaa 




IF YOU OWN A TRS 80? 

IU-IO i« ■ hoaii ot Radio Snao A TanOv Coipcaaiion 

PUTS YOU JUST A 



ggmlA. 

CABLE LENGTH AWAY FROM A 

'LI A D PI i^m PO DV" / Typewriter Quality: \ 

nnilU llUll \ clean, clear, high-fidelity / 

Word Processing System! 



. . .just a simple hook-up with the supplied cables 
and your SELECTRA-PRINT is ready to run. 

For Word Processing on a TRS-80, for example, 
just command "LPRINT" and SELECTRA-PRINT 
automatically outputs clear, clean, high-fidelity. 
hard copy. . . . and of course you can use it to 
print-out any other information you might need. 

SPECIAL NOTE: 
SELECTRA-PRINT is a Selectric II typewriter and 
although it has been modified for computer 
print-out. it may still be used as a standard 
office typewriter. 

PRICE J1.850.00* 'TRS-80 Version $1925.00 
OPTIONS 

Dual Ptlcn si 25.00 

Correction feature $125 00 

Noise Reduction Feature $50 00 
RS 232 Interlace SI 95 00 



"7T SELECTRA-PRINT is VERSATILE! 

SELECTRA-PRINT is compatible with most micro- 
and mini-computers including PET • Apple • 
Heath H8 • IMSAI • Cromemco • Alpha Micro- 
systems • Space Byte • North Star Horizon • 
SWTP • Vector Graphic • Sol • Polymorphic • 
Digital Group • Ohio Scientific • Altair • Sorcerer 
Xitan • flex • KIM • EXORcisor .... 

"From now on. PRINT-OUT 
takes on a new meaning" 

micro 

computer 

devices 

inc. 
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The CPU Shop, DepLN 

39 Pleasant St. 

Charles town. Ma. 02129 

Call 617/242-3350 



THE CPU SHOP 



MEMORY; 16K memory kit complete with 8 RAM 
chips Jumpers and Instructions for installation in 
your keyboard or expansion interface. A household 
screwdriver is the only tool you need, no soldering 
85.00 

PRINTERS: NEC Spinwnter • Letter quality printout 
on plain paper - 55cps. - choose font style with 
Interchangeable thimble - friction & tactor feeds 
combined in same unit, incls. our adaptation package 
for TRS-80 2879.00 

Centronics: Nationwide field repair by Centronics: 

Call Centronics (800)253- ■- 952 
779 tractor feed - 60cps - same as line printer 
used by Radio Shack 1179.00 

701 tractor feed • 80 cps bidirectional 132 columns 
1579.00 

PI micro printer • same as Quick Printer used 

by Radio Shack 399.00 

Cable to plug into expansion interface 39.00 

Integral Data Systems • Upper/lowercase • 100cps 
unidirectional - switch-selectable RS232 or parlelle: 
max. paperwldth 8.5 inches edge to edge: can attach 
to expansion interface or keyboard W/TRS232 (below): 
IP125 - friction feed with variable pitch under program 

control 64 -132clms. per line 838.00 

IP225 - tractor feed with variable pitch. 2K buffer 

and lull graphics options 1148.00 

Cable to plug Into expansion Interlace 49.00 

Cable to plug Into TRS232 interface 15.00 

TRS 232 PRINTER INTERFACE by Small System 
Hardware. Software driven serial output port plugs 
into keyboard & cassette aux port; can be used to 
drive integral Data, Diablo, Teletype printers, etc., 
works w/Electrlc Pencil 49.00 

POWER STRIPS: 6 grounded outlets w/6 ft ex- 
tension cord, 15A circuit bkr.. on'off sw.. pilot light 
16.00 

SURGE SUPPRESSOR/HASH FILTER: protect your 
computer equipment from AC line surges 24.00 

DISK DRIVES" " "DISKETTES" ' 'STORAGE CASES: 
TRS-60 disk drives complete w/power & case . 399.00 

Cable for 4 drives 49.95 

Diskettes - Verbatim 3-60 

Plastic case - holds 10 diskettes: built-in flip 

stand 5.00 

Diskette Binder holds 20 diskettes w/slts lor Index 

cards «.95 

CASSETTES: high quality, buy 10 for 10.00 

FORTRAN for TRS-80 by Microsoft, plus Z-80 Macro 
Assembler, versatile Text Editor, linking Loader. 

Requires 32K system with one disk drive 325.00 

ANIMATED GRPAHICS PROGRAMS WITH SOUND! 
from 80-U.S.: Just plug any Inexpensive amplifier 
(such as Realistic 200mw below) into the aux Jack of 
your tape recorder. You won't regret you bought 
these programs. 

ANDROID NIM: Robot characters that wink & nod 4 
scream at you while you play nlm against TRS-80 

....... .....14.95 



SNAKE EGG: Version of 21 played with talking 

snakes 1 4.95 

MUSIC MASTER by David Llndberg: enter up to 
10 minutes of music for your 16K TRS-80 to play. 
14.95 

REALISTIC 200 mw state speaker amplifier 9.95 

ELECTRIC PENCIL by Michael Shrayer - NOW ON 
DISK as well as cassette - a fine word processor 
with block movement & search plus more - Instruc- 
tions for modifying keyboard to set loweriupper case- 
cassette 99.00 

New diskette version 150.00 

We'll Install lowercase mod for you 65.00 

CP/M forTRS-80 by Small System Software . . 150.00 

DISK UTILITY 7-PROGRAM PACKAGE Irom Aparat: 
diskette 99.95 

NEWDOS + Finally an improved DOS w/leatures le. 
auto up in Basic, access to disk (lies from Basic, 
and more 

INCLUDES THE FOLLOWING UTILITIES: 
DIRCHECK; Makes checks & list/prints directory 
contents 

SUPERZAP: Reads, writes, copies & displays sectors 
on disk regardless ol protection: recovers "killed" 
programs 

DISSASEM: Disassembles mac code to Z80 source 
EDTASM moves Radio Shack editor/assembler to disk 
LMOFFSET- Relocates machine language programs 
to specified memory location 

LVIDSKSL Stores, retrieves Lev I programs to disk 
LEVEL I: Provides Level I in Level II capability 

RSM MONITORS by Small System Software - many 

(unctions inc. memory test, read 4 write machine 

language tapes, enter & execute machine lang. 

programs 

cassette.....26.95 dlsk....29.95 

SARGON: BEST CHESS: This program has won 

chess tournaments - six levels of play 19.95 

BRIDGE CHALLENGER by George Dulsman - 16K. 
Lev. II. you & dummy play against the computer In 
regular contract bridge. Complete w/instructtons4 95 

PILOT by Bob Edison: a mach. lang. version of 
the educational language PILOT w/all the features ol 
TINY PILOT and more..lncl. built-in editor plus 
sample programs 1 4-95 

PI LOT also available on disk 99.00 

THE LIBRARY 100 by Bottom Shelf: a 5-cassette 
album with 100 buslness/finanaciai. educational, 
home, graphics, and games programs: 16K Lev It: 
VALUE = 50* per program 49.95 

INVENTORY handles 1000 Items per drive (2 drives 
min. optional printer) 99.00 

Small Business Systems Group 
Based on Osborne, A/R. AVP.G/L account books, 
call (or further Information (requires 2 drivers mln.) 
all three (or 350.00 
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NEW SUBSCRIPTION HATES 



Effective with our next issue {SepOct 
79), new rates will be In effect for 
Canadian and foreign subscribers. We 
have been "nice guys" for the past year. 
bui the post ofiice isn't having any of it. 
so we simply have to pass the cost along 
- sorry. US RATES WILL REMAIN UN- 
CHANGED But. you now have the op- 
tion of a 2 or 3 year hitch with 80-U.S. We 
didn't offer them before, but since it 
looks like we are here to stay. • why not? 
Here are the new rates: US $16. $31,545 
for one. two and three years Vi Canadian 
$20, $39. $55 for one. two and three 
years W alt other $24. $47. $68 lor one. 
two and three years. The "all other" are 
all sent airmail. Canadian are sent first 
ciass. Alaska, Hawaii and US 
possessions with zip codes may request 
first class mil and remit payment at the 
Canadian rate 



RENEWAL TIME ALREADY' 



If the three letter code at the upper 
right of your mailing label says 'PB9" it 
means lhat the Sep-Oct 79 issue will be 
the last ot your subscription We will be 
sending one renewal notice (we can't af- 
ford to keep bugging you about it tike the 
biggies do). Why not take care ot it now. 
while you're thinking about it, we nave 
some very exciting materia) planned 
which you won't want to miss! 

BACKSPACE 

A very large number of our May-Jun 79 
issue go) out with two pages switched, 
and on the lead article, no less! Although 
we caught It before the run was com- 
plete, the shortage of paper forced us to 
send them anyway. 0u> most sincere 
apology, and a promise tor better quality 
control by our printer, are extended. 

FUNNY LISTINGS 

If you haven't read Ihe Mar-Apr issue, 
and have some of the new 
animated/sound programs by Leo 
Ghrlstopherson, you may be in for a sur- 
prise when you list them. In shod, they 
don't list like normal programs. Leo uses 
"String packing", which causes basic 
control words lo appear in the listing. 
This makes It look exactly like a bad 
load. The final test, of course, is to RUN 




them. 



BACKSPACE 



II was called to our attention, shortly 
after the May-Jun 79 issue was out, that 
there was a tunny looking semicolon In 
line 400 (page 17). Also that the line 
dldn'l seem to make much sense. We 
checked several copies from early In the 
run and later, an found an extra speck ol 
something on Ihe early ones, making a 
comma look like a semicolon. The line 
should read: 400 IFMN< = TV(I>. 
ONIGOTO etc. etc. The funny semicolon 
was after the TV(I) and should be a com- 
ma, not a semicolon. 

NEW STAFF MEMBER 

II you should call 80-U.S. and hear 
something other than the editor's usual 
gruff harumhing. It will undoubtedly be 
the voice of Cathy Shaopae, our newest 
addilion to the staff Please treat her 
kindly, while she picks up the wierd ter- 
minology wa are all accustomed to 
using. 



80-U.S. IN EUROPE! 



80-U.S. now has a distributor for cen- 
tral Europe. The Journal is being 
distributed Ihrough the Holaoker-Verlag, 
In Munich, West Germany. Wlnfrled 
Hofacker. President of Hofacker GmbH , 
anticipates Iranslatlng and reprinting 
several of our previous articles in book 
form. We are gratified with the reception 
we ace receiving from Europe. 



BACK ISSUES 



As ot this writing. (May 79). our supply 
of back issues Is down to a few file 
copies with the exception of the May- 
Jun 79 Issue (Vol. II, No. 3), which is still 
in good supply. Wllh any luck, our very 
first issue ot Sep-Oct. 78, will be reprin- 
ted in our first anniversary issue as a 
bonus section 



NEW PRODUCTS 



HOUSTON MICRO-COMPUTER 
TECHNOLOGIES. INC. has recently 
become a distributor tor Centronics 
Computer Corp.. Houston Micro- 
Computer, located at 5313 Bissonnet in 
Bellaire, Tx., sells, sen/ices and trains 



users in operations of Micro-Computers 
They feature Ihe entire Centronics Line, 
including the 700 series, popular with 
the TRS-80. the P-1 Microprinter, and the 
6000 tine of band printers. 
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SOUTHWEST MO DU LARS 

DEVELOPMENT CORP.. P.O. Box 85. 
Alva. Ok 73717 offer "LPRINTING" ser- 
vice. They offer Centronic 702's for 
those needing L2 or Oisk Basic 
programs primed in quick fashion. One 
copy ot maximum 500 lines for a nominal 
charge ot $6.00, addllional copies at 
$3.00 each. 



DATA MANAGER 



MICRO ARCHITECT. 96 Dothan Si- 
Arlington. Ma. 02174, has announced the 
new IDM-III, an INTERACTIVE DATA 
MANAGER tor TRS-80 DOS systems of 
32K and up. Priced at $49.00. the IDM-III 
provides a general purpose. Interactive, 
simple bui yet powerful solution to 
database management. II contains a 
data initialization sub-system, a data 
manipulation sub-system, a report writer 
sub-system, report generator and sup- 
ports both sequential and random ac- 
cess Write for further information. 

IT SORTS I 



Tired of waiting for a sort lo finish? 
RACET COMPUTES. 702 Palmdale. 
Orange, Ca. 92855 has one which will sort 
1000 element arrays in 9 seconds!! This 
is part ol their GENERALIZED 
SUBROUTINE FACILITY 'GSF', which 
also has routines to read and wrlie 
arrays to tape, compress and uncom- 
press data and much more (see ad 
elsewhere this issue.) 



PRINTERS AVAILABLE 



COMPUTER TEXTILE, 10960 Wilshire 
Blvd.. Suite 1504. Los Angeles, Ca. 90024 
have a line ol NEW and RECON- 
DITIONED PRINTERS ior use with the 
TRS-80. Including Ihe Diablo Daisywheel 
for use wllh Ihe TRS-80. including Ihe 
Diablo Daisywheel and the Qume Sprint 
5. The reconditioned Diablo runs at 30 
cps and has full graphics capability, In 

flD-U.S. JOURNAL JULY/AUG 1ST9 



addition lo being a complete I/O device. 
II sells for S1995. 

LOW COST IDEA 

NESTAR SYSTEMS has introduced 
CLUSTER/ONE (TM). a low cost 
distributed processing alternative to 
Basic timesharing. The central 
cluster/one unit (the Queen) connects up 
to 15 personal micfocompulers (the 
Drones), via a high speed parallel data 
bus(theClusterBus) Programs and data 
files can be shared among (he users of 
CLUSTER/ONE, and permit each basic 
user to have his own computer, rather 
than a small share of one central 
processor. For further technical Infor- 
mation contact Nestar Systems. Inc.. 
430 Sherman Ave., Palo Alto. Ca. 94306 
(415)327-0125 

PROGRAMS AVAILABLE 

SERVICE ENTERPRISES. 2855 Mitchell 
Dr., Suite 235, Walnut Creek, Ca. 94598 
(415)935-2500 have released a sample of 
available PROGRAMS FOR TRS-S0. both 
tape and disk programs. Included are 
general ledger, construction job status, 
pool building company |ob tracking, |ob 
shop labor/batch distribution and 
telephone bill accounting and audit 



DISK MAILER 

We are back to square 1 again 
(SQUARE 1, 614 eighteenth Ave., Menlo 
Park. Ca. 94025).thls time to look at what 
they call "floppy-AHMOURfTM/.' It is a 
tougn. light disk mailer, for 5 inch disket- 
tes. Mails first class tor just 41 cents 
postage and protects your diskettes- 
Cost per thousand is 47 cents each, un- 



der tOOO. 60 cents each. Looks like you 
have the envelope and protection, all In 
one 

UTILITY PROG RAM 

THE CPT SHOP, 39 Pleasant St., 
Charlestown, Ma. 02129. has a utility 
program called "KVP" written by Lance 
Micklus which runs under DOS or L2 
Basic. Among other things, It allows you 
to use an external keyboard, eliminate 
upper and lower case on your screen, 
and exchange programs whiten in Basic 
with other computers. Write (or call 617 
242-3350) for more information on this. 

MONITOR AVAILABLE 



If, in the process of programing in 
machine language for L1, you have been 
having difficulty due to the fact that T- 
Bug is coresident with L1 Basic's stack, 
an inexpensive solution is at hand. It is a 
monitor called "Hl-'mon". and resides at 
the lop of memory in LI. Hi-Mon has 5 
functions; memory (MODIFY/EXAMINE), 
JUMP, READ TAPE. WRITE TAPE, and 
HEX dump. Available only from CON- 
TRACT SERVICES ASSOCIATES, 1846 
W Broadway, Anaheim, Ca 92804 for 
S4.95 postpaid (specify 4K or 16K ver- 
sion). 

DISKETTE SIZE DOUBLED _ 

SQUARE 1, 614 Eighteenth Ave.. 
Menlo Park, Ca. 94025, has what they call 
a "FLIPPY DISK KIT'. With it. you can 
double the size of your available diskette 
space. The Kit comes with complete in- 
structions, and lets you punch the 
proper holes (without harming the 
diskette), so you can use both sides, it is 
priced at $9.95 plus $1.00 shipping. 

(Continued on page 35) 
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How about that? With this issue we 
come to the end of our first year. II has 
been an interesting and exciting yeai, 
starting with a 16 page journal (called 80- 
NW). The first issue (Sep-Oct 781 was 
printed on the Radio Shack line printer. 
Those few ads we carried in the first 
issue were for the most part, hand 
drawn. It was, as all issues since have 
been, like a new baby being born. You 
wonder each time, if it will have three left 
feet, (some almost did!) 

At first we thought we would be 
regional, but then orders came in trom 
Fiotida. New York and Maine. So, we 
soon changed the name to 80-US. Yes, 
we were a "garage " operation, but only 
(or four months. Long about the first of 
December it became apparent that it had 
to De full time or forget it. So, il became 



full time starting the first day of 1979 
Now, we have been halt way around (he 
world, and to the west coast computer 
faire, so we must be committed to whai 
we are doing. 

Our thanks to all who support us. 
especially our advertisers; you made it 
possible. And our special thanks to Cal, 
of the International Ribbon House (who 
has been on the back cover since Issue 
No. 1). Cal was our first advertiser. One 
day we asked him to advertise and whan 
he asked how many subscribers we had, 
we said there were none, yet. He said. 
"You gotta start someplace", and joined 
up. 

It has sort ol bean that way ever since. 
We seem to be too naive to know it can't 
be done, so we go ahead and do it! We 
have had a lot of help, from many people, 
the regular crew. Tom Rosenbaum and 



his technical expertise. Leo 
Christ opherson and his unique form of 
magic, Terry Dettmann and his unboun- 
ded energy and output. George Blank. 
Roy Groth, Kristi Schmidt, Dr 
Livingston. Bob Piatt, Cathy Shappae. 
Phil Pilgrim, John Strader. Kathy 
Huston, Rich Mulkey; and all the others, 
who help but are not regulars, like Mike 
Freeman, Tony Pepin and more. 

Thanks also to our fine contributors, 
and a word for them: If you haven't seen 
your article In print yet, hang on, we are 
getting bigger and *ill need all we can 
get! 

The coming year should see us move 
into larger quarters, perhaps even put 
some color In the of mag and maybe even 
a hard cover? Il has been fun. |ust like It 
should be, and we are looking forward to 
even more next year! • Mike 
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LETTERS 




Editor. 

I was quite surprised and pleased, 
when my first copy o! the JOURNAL 
arrived in only ten days. I have build the 
BETTER BYTE BOX (80— US Issue 4) by 
Ray Thompson. It works great, and 
wouldn't be without it now. I bought all 
the parts from Radio Shack, it makes a 
neat package. I did put the two miniature 
plugs in side by side, and bought a 
shielded cable (3 feet long) and went In 
one plug with the TRS-80 and plugged 
the other cable Into the earphone of the 
cassette. It works line, many thanks to 
Ray. 

Charles E. Harper 
Plttsfleld. Ma- 



Dear Sir, 

Thanks for the copy of BO-US. To a 
■•from scracth" beginner like myself it 
makes more sense than any I have seen. 
Please keep a section at least, for the 
beginner. I don't understand a lot of this 
new world of language, like double den- 
sity (could you mean double precision? 
Ed). I got more from your one copy than 
from several different "biggies", and 
don't want to miss a single copy. 

Don H. Smith 
Rockingham, NC 



Dear Sirs. 

First I want to thank you tor the copy 
of 80-US. It is much belter than a glowing 
description or a promise of an extra 
issue "If "I subscribe. I have a Level II 
48K unit and am enjoying II Immensely. I 
have a great deal lo learn and think your 
JOURNAL will help very much. 



R. Cook, Jr_ 
Perrysburg.Oh. 



(We sent out several hundred back 
issues to those who requested more In- 
formation via the Reader Service Cards 
in Kilobaud and Creative Computing, 
where we had advertised earlier this 
year. Needless to say, we are as happy 
with the results as you are. Ed) 



Gentlemen, 

Thanks for the compi imentary copy. It 
sold me half way thru and t ran the 
Bowling Program and It was great Hope 
to see more In the future. Keep up the 
good work! 



Bob Scaffidl 

Doytestown.OH 

(Thanks Bob! We were beginning to 

wonder if anyone could get bowling to 
run properly Bowling probably 
generated more mail than any other 
single article we have done, it's nice to 
hear It worked for you. Ed) 

Dear 80-US. 

I found your Jan-Feb 79 issue very In- 
formative and outstanding. The View 
from the Top of the Stack about machine 
language is very helpful. Also, is It 
possible togeta listing of ANDROID 
NIM? After seeing several references to 
II I would like to see the program to leam 
more about programing. 

Douglas T. Cox 
Ann Arbor. Ml. 



(Android Nim is available from 80-US tor 
$8.00, see ad elsewhere this Issue. When 
you have taken that apart, you will in- 



deed know something about 
programing, since it Is quite complex, 
but not impossible. The new version of 
NIM with sound Is even more complex, 
and because of a new string packing 
technique, is extremely difficult to 
decipher. Don't let this stop you though, 
dig in! Ed.} 



Friends, 

My friends and I have had so much 
enjoyment with ANDROID NIM I lust 
have to see what Leo C has come up with 
In his new programs (Android, Snake 
Eggs, Ufetwo all with sound). I noticed 
elsewhere In the Mar-Apr Issue an ad lor 
a MEMORY TEST program by Software 
80. is this from your shop? Thanks for 
the past good service and for a great 
publication? 



G.T. Cross 
Solana Beach, Ca. 



(We certainly don 't want to take anything 
away from ANDY, but think that SNAKE 
EGGS and UFETWO will eventually top 
the popularity of ANDY. SNAKE EGGS la 
running a very close second now, and 
gaining. This all makes Leo very proud, 
and keeps us all busy keeping up with 
the demand. 

About Software 80 ■ they are not us. I 
also hear thru the grapevine they are no 
longer in business. Ed.) 



Edftor. 

t am pi eased with your publication and 
look forward to Its continued regular 
arrival. Keep up the good work. 

Here Is a tittle programing trick you 
may wish to pass along. The Nov 78 
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Newsletter from Radio Shack contained 
a short program lo turn the tape recorder 
on and off from the keyboard without 
pulling the plug. Line HO INPUT" 
REPOSITION TAPE PRESS (ENTER) 
WHEN READY' Al does not work for 
me Adding OUT 256.0 to line 110 does 
turn off the tape deck very nicelv 
however. I used the following: 100 INPUT 
"PRESS (ENTER) TO TURN RECOHObH 
ON'AS:OUT255 ( 4 

ItO INPUT'REPOSITION TAPE. PRESS 
(ENTER) WHEN READV A| OUT255.0 
120 GOTO 100 

I also use the following to put a ehorl 
additional blank space on certain data 
recording tapes between recorded data 
records 100 OUT 255.4 FOR L=0to125. 
NEXTLOUT255,0 

Thanks tor a good, ragular publication 



Tom Swalanberg 
Columbus OH 

Dear Sir. 

I think you should change the name of 
your tine magazine to: SOUS JJOURNAL 

H.O.Thornburg 
Pomona, Ca 

(Or maybe we should heve called il 
KKKey BBounce' edl 

SOUS. 

I lust received my issues of BO-US and 
the one word which describes It Is tan 
taatic' 

Also I want to pass along a few tidbits 
I have come across with my T RS-B0 First 
off, MICROCHESS 1 5 by Peter Jennings 
can be beat In five moves E2-E4. D1F3. 
F1-C4. C4D5 and F3 F7 Allhough these 
moves are simple the program deserves 
a round of applause 

Second, if you want to disguise a 
password in a Basic listing use SHIFT 
and ihe tetter, (he letter will print the 
same, but hold a dl Her em value e.g. 
10 INPUT ENTER PASS COSE ";P» 
20 IF P*= BO-US (see note) THEN 30 
ELSE 10 
30 REM Continue to program 

NOTE The US in line 10 and 20 both 
have lo be entorod with the ihifi key 
depressed 

Ted Fisher 

Danville, H 



'Thanks Tad. near idea that will probably 
drive someone w/io doesn't know about 
»f crazy, even after you toll them what 
.ha password is Speaking of Cheat 
there la an old saw about the guy who 
says ha can play the two beat chata 
players in tha world al tha same time It 
one ol them will play black and Ihe other 
white, he says ha can guarantee he will 



bawl at least one or stalemate both He 
then simply duplicates their moves, and 
m effect they are playing each other. Ha 
cany lose. We nave SARQON and have 
played it on two TRSBOt that way It 
seems lhat white always wins on tha 
30th move, but there are aoma In- 
teresting situations which develop along 
the way I am a leas than fair chess 
player and have only menagad to beat 
SARQON once in about a doien gamaa. 
It was looking ahead 2 moves and I trap- 
pad Its king on the 19th move The king 
fell overt Ed I 



Mike. 

Just want to say thanks lor another 
great issue. Are you sure we can't talk 
you Into going monthly in the new 
future? 

I en|oyed your article on page 31 of 
Mar-Apr 79 entitled "The Magic of Lao 
C" Do you suppose that BO-US oould 
persuade Lao into sharing soma of his 
techniques Let's further the art of good 
programing, like Ihoae produced by the 
Magic ol Mr C 

I also wish to let you know that I have 
purchased a Heathkll H14 printer (kit) 
and plan to Interface II to my TRS80 and 
would you be interested in hearing o> my 
endeavor and how it all turns out? 

Dennis L. Guarin 
Bloomington, MN 

IBy all means. Dennis ' That la whal we 
thrive on. reader input, and since wa are 
ii'ii trying to be a profit making 
organization, wa pay lor that type of at 
tlcle- and you profit tool 

By now you have undoubtedly 
received your May-June SOUS, and as 
you can see. we did persuade Leo to tell 
us about hit stung packing technique 
And-m this vary laaue he details the 
evolution ot fast graphics, from SET with 
a FOB NEXT loop to his "quick turn on" 
graphics. As a bonus, he tells ell about 
using LPRINT or NAME aa a vector to 
machine language routines 

About going monthtywe hope to do 
that someday It lust Isn't possible yet 
Tha raeaona are simple. Twice the coat 
tend quentltyl ot artlclea, twice tha coat 
ol printing end mailing, twice tha coal 
lor people to do f> and only one hail the 
time to do it In All thla at tha same price 
par subscription, loo (which is already 
considered rather high by some/ Whal 
we are doing Is to get larger issues, note 
most ot the May-Jun issue was m 8 point 
type instead ot tO point After some lime 
wa may go to 10 issues par year leaving 
out July and August At the rale we are 
growing, it may be sooner than we think. 
bear with ua awhile and see Edl 

Deer Sir. 

The thought has been on my mind 
lately lo build an interface which would 



•How the TR^rw to read Bar Code ot the 
■Paparbyte' i*M» type through Its 
cassette input port Ol course this 
wouldn't be ol much uae unless 
someone was publishing bat code 
listings ol their programs The next 
thought waa to develop a system using 
one of Ihe new printers which has the 
ability to print with high resolution by 
using a multiple paaa 7 dot print head. 
Thi* system would take a basic or 
machine language program Haling and 
produce camera ready machine readable 
bar code It might be best to produce the 
original al 2X to Insure high resolution 
and then reduce It for final copy. I leal 
this system oould be based on any micro 
so why not the 'B0? it would probably 
need ihe storage ol a disk or two. Then 
all Ihe line publications could arrive at a 
standard, or better yat have those who 
produce the syslam, establish a stan- 
dard bar code language. Each systems 
bar coda reader software could interpret 
the common code into the language the 
particular machine understands There 
will have lo be a general system con- 
figuration tor different types of 
programs, but lhal shouldn't be too dlf- 
licull towoikout 

But to start Basic, let's got this idee up 
and running on the TRS80 Alter all. 
computers are supposed to remove the 
mundane from our Uvea Sitting al a 
keyboard lor hours on end entering and 
debugging programs that have already 
been entered and debugged is a waste of 
human creative intelligence Having lo 
buy a cassette ol each program la a 
waste ot cassettes and why shouldn't 
Ihe next generation ol micros have this 
capability in the same way most now 
have the ability lo deal with cassettes' 
Seems right to me, whal is your opinion? 
II anyone wants lo invest In this Idea, 
please let ma know-It shouldn't be hard 
lo make this ideally. 

M foster ill 

388 Spring ST 

Newport, RIO 2640 

ISounds good. Murray, but tlrat let's find 
out why Byte Magazine was so hot tor Ii 
a couple ot years back and haa since ap- 
parently dropped it. Al Ihe risk ol soun- 
ding trite, there is no uae "Re-inventlng 
the same Wheel", especially when we 
can Und out beforehand that the wheel is 
prone to having flat tires On tha other 
hand, maybe whan Byte did their 
"Paparbyte ' its time had /ust not come. 
Let's hear from anyone with ideas on 
thla aub/ect Even If it were only com- 
patible with the '80. it would still 
represent one huge chunk ot the com- 
puter population If it la true that those 
who wield tha biggest club, call tha 
shots, wa should be in a good position, 
But, let's call thoaa shots with care and 
as much visibility aa we can gel. Ed.) 
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REVIEW: 



NEWDOS + 



T. Detl man 
Associated Editor 

Radio Shack's DOS 2 1 has been lull of minor 
errors for which correction Is promised. Now, 
APPAHAT. Inc. of Denver, Colorado, has come 
out with NEWDOS+ , not |uat a new DOS, but a 
whole system of utilities for the Disk System 
user. 

NEWDOS Itself Includes a large number of im- 
provements over DOS 2.1- Despite this. It Is 
essentially the same as DOS 2. 1 . However, some 
of the changes make It Incompatible with DOS 
2.1 modules. To load the system, you must boot 
the system with the NEWDOS disk, not simply 
change disks. 

The ma|or changes included in NEWDOS are: 



Add command DIRCHECK to test 

and list a disk directory 

Expands validity checks to most 

disk write operations 

automatically 

Disables all passwords checks 

Adds a 50ms key debounce routine 

Adds screen display printout when 

the 'JKL keys are pressed 

simultaneously 

Adds on OPEN "E" ' function to 

BASIC which lets you write to a file 

starling at the end of the tile 

Fix the APPEND command In DOS 

Add the capability to turn off the 

'invisible' attribute with the AT 

TRIB command 

Adds to BASIC the capability In 

LISTing to use period u to list the 

current llne,down arrow to list the 

next line, up arrow to list the last 

llne.shift up arrow to list the first 

llne,shlft down arrow to list the last 

llne,comma (,) to edit the current 

tin* 

Adds the capability to FORMAT a 

disk that has data already on it 

Adds the capability to execute 

DOS commands using the CMD 

function from BASIC 

Changes I/O to sector type to 



speed up BASIC LOAD and SAVE 
operations 

FORMAT and BASIC may be 
executed from DOS READY with a 
single line containing all 
parameters. 

COPY Is expanded to handle all 
disk copying requirements In- 
cluding BACKUP 

A REF command has been added 
to BASIC to Mat a reference list of 
all variables used in a program. 
A RENUM command has been ad- 
ded to BASIC to allow program 
renumbering conveniently from 
BASIC 

L E, or D may be used in place of 
LIST, EDIT, or DELETE 
In addition to the added capabilities above, 
NEWDOS also makes many minor changes of In- 
terest primarily to systems programers, but all of 
them correct minor errors from DOS 2.1 

If you buy NEWDOS with the PLUS (+) you 
also get the best TRS80 utilities available. These 
Include: 

An Improved DISKDUMP program 

The Radio Shack Editor-Assembler 

modified for Disk I/O 

A Level I BASIC that will execute in 

the DOS envlornment with a 

program to store Level I Basic 

programs on dlskl 

A Disassembler that will work on 

eltner disk modules or programs In 

memory 

A program to offset load modules 

so they can execute from disk 

Apparat's SUPERZAP, a program 

that allows you to look at and 

modify disks or memory directly! 

The figures Included with this text show some 
of the capabilities of the system. 

AN EVALUATION 

NEWDOS had only recently been released, 
{Continued on page 12) 
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FILE DIRECTORY DRIVE 


NEWDOS + 


— 03/15/79 


DISKDUMP/BAS 




BASIC 1/CMD 




DIRCHECK/CMD 


DISASSEM/CMD 




LMOFFSET/CMD 




EDTASM/CMD 


LV1DSKSL/CMD 




BASCON/BAS 




AUTOEDIT/CMD 


SUPERZAP/BAS 














DOS READY 














DIRCHECK 














OUTPUT TO PRINTER? Y 












WHICH DRIVE CONTAINS 


TARGET DISKETTE; 


°- 






NEWDOS+ 03/15/79 












AUTOEDIT/CMD 




EOF - 


1/193 


1 


EXTS 


5 SECTORS 


BASCON/BAS 




EOF = 


6/231 


2 


EXTS 


10 SECTORS 


BASIC/CMD 


I 


EOF = 


19/119 


2 


EXTS 


20 SECTORS 


BASIC 1/CMD 




EOF = 


19/0 


3 


EXTS 


20 SECTORS 


BOOT/SYS 


SIP=6 


EOF = 


5/0 


1 


EXTS 


5 SECTORS 


COPY/CMD 


IP=6 


EOF - 


4/253 


1 


EXTS 


5 SECTORS 


DIR/SYS 


SIP«5 


EOF - 


10/0 


1 


EXTS 


10 SECTORS 


DIRCHECK/CMD 




EOF = 


12/236 


3 


EXTS 


15 SECTORS 


DISASSEM/CMD 




EOF ■ 


19/134 


1 


EXTS 


20 SECTORS 


DISKDUMP/HAS 




EOF = 


9/242 


1 


EXTS 


10 SECTORS 


EDTASM/CHD 




EOF = 


31/154 


1 


EXTS 


35 SECTORS 


FORMAT/CMD 


IP=6 


EOF = 


14/8 


1 


EXTS 


15 SECTORS 


LMOFFSET/CMD 




EOF = 


6/224 


1 


EXTS 


10 SECTORS 


LV1DSKSL/CMD 




EOF = 


2/141 


1 


EXTS 


5 SECTORS 


SUPERZAP/BAS 




EOF = 


53/170 


3 


EXTS 


55 SECTORS 


SYSO/SYS 


SIP=7 


EOF ■ 


12/93 


1 


EXTS 


15 SECTORS 


SYS 1 /SYS 


SIP=7 


EOF = 


4/142 


1 


EXTS 


5 SECTORS 


SYS 11 /SYS 


SIP=7 


EOF = 


4/236 


1 


EXTS 


5 SECTORS 


SYS12/SYS 


SIP = 7 


EOF = 


4/164 


1 


EXTS 


5 SECTORS 


SYS13/SYS 


SIP=7 


EOF = 


3/9 


1 


EXTS 


5 SECTORS 


SYS2/SYS 


SIP=7 


EOF = 


4/52 


1 


EXTS 


5 SECTORS 


SYS3/SYS 


SIP=7 


EOF = 


4/76 


1 


EXTS 


5 SECTORS 


SYS4/SYS 


SIP=7 


EOF = 


4/186 


1 


EXTS 


5 SECTORS 


SYS5/SYS 


SIP=7 


EOF = 


4/203 


1 


EXTS 


5 SECTORS 


SYS6/SYS 


SIP=7 


EOF ■ 


13/33 


1 


EXTS 


15 SECTORS 


8 FREE GRANULES. 


LOCKED-OUT GRANULES. 




NEWDOS+ DIRECTORY 


CHECK 


& LIST COMPLETED. 




(Note the Directory 


Is II stcd In alp 


habet i ca 1 


order. Also 


THE AUTOEDIT/CMD Is 


not normally part o 


f NEWD0S+, It IS 


AUTOKEY and QEDIT a 


iapted 


for disk. 


No 


te a 1 so 


that the file 


extensions are given, and 


that disk 


space Is now given In 


Sectors rather than 


In GRANS. The a 


bove I 1st I 


ng was obtained 


by us 1 ng the 


JKL function 


of NEWDOS. 


SYS! \ ,12 


and 13 arc 


NEWDOS addlt 


ons . 


SYS 1 I executes Bas Ic 


d 1 rect 


command "RENUM" 


SYS12 executes BasI 


c d 1 rect command 


•REF". SYS13 displays 


Basic's error messages.) 
















Figure 1 









90-US JOURNAL JULVIAUQ 1979 



11 



(Continued from page 10) 
but II has already proven itself to be the best 
operating system now available for the TRS80. 
The capabilities provided In NEVVDOS are a 
stgniflcant Improvement over what Radio Shack 
now provides. The capabilities most used are the 
RENUM and the CMD execution from BASIC. 
They give the flexibility only dreamed ol before 
(though I atlll miss the MAT commands from 
other BASIC dialects). 

The utilities added with the PLUS maintain the 
high quality of the rest ot the package. Anyone 
who has labored over the old Editor Assembler, 
limited to tape I/O even alter he has his disk 
system, will appreciate In particular the Im- 
proved EDTASM. The convenience of not only 
executing the program from disk, but keeping 
the assembly programs there as well as the 
assembled files will tickle you to the pink. 

In short, II you have a disk system and you 



don't have NEVVDOS, you are operating at less 
than the maximum capability now available. II 
you are still using the old EDITOR-ASSEMBLER, 
you are putting up with less than your disk 
system can give you. II you don't have SUPER- 
ZAP, you don't have the ability to look at and 
modify disk files in a convenient fashion. New 
Improvements MAY come out any day, but we 
don't know of any Just now. II you are waiting for 
something better, you may have a long wait. 
NEVVDOS + may well become the "standard" 
TRS80DOS. 

NEVVDOS and NEWDOS+ are available from 
Miller Microcomputer Sen/lcea. 81 Lake Shore 
Road. Natlck, Ma. 01760. NEVVDOS (without the 
utilities) Is $49.95 and NEVVDOS + Is $99.00; add 
$1 to either for shipping and handling, and Ma. 
residents add 5% tax. We strongly recommend 
the "plus" version, the utilities are outstanding*. 



NOTES ON 
BASIC 



A little known page in the Level II 
manual (out ■ very valuable one if you 
use Its suggestions), t% page 11M It Is 
loaded with tips (or saving memory 
space. For example, II you are going to 
call a routine from different places In a 



program, then a GOSUB is the most el 
lecient means for entering the routine, 
but It the coil will always come from the 
same place, then a GOTO Is mora ef- 
ficient [a savings of 6 bytes) 



NEW # WARSIM * NEW 



A TWO -LAYER WAROAMINQ SYSTEM THAT SIMULATES 
THE ACTION OF TWO COMBAT SHIPS ON A SEA WITH UP 
TO S PORTS. B SHALLOWS AND S MINEFIELDS. 

SYSTEM IS AN EVENT DRIVEN SIMULATOR THAT 
SCHEDULES AND EXECUTES 12 EVENTS THAT CONTROL 
THE SYSTEM'S IS ENTITIES AND IS2 ATTRIBUTES. 

ALL RELEVANT ENTITIES AND ATTRIBUTES ARE USER 
OEFINABLE IN DATA STATEMENTS. ALLOWING) FOR AN 
UNLIMITED NUMBER OF GAMES FROM THE SIMPLE TO 
THE MOST COMPLEX. 

SYSTEM WRITTEN IN LEVEL II BASIC USING 1«K. 

PRICE OF SYSTEM INCLUDES CASSETTE. USER MANUAL 
POSTAQE AND HANOLING. 

SEND StS-BS (CHECK OR MONEY ORDER! TO: 

JORDAN DATA PROCESSING 

4661 SUMMIT HILLS WAV 

TUCKER. QA. 30064 



I Under .& 
Attack!! 




t) 



iiumm 

OFsll HI 

FOR TRS-80 

Though ih* »oow confederation ol colonies *n OH ION had 
sieved oil iha Siailai Union'* n<d 1o» hegemony, would ihev 
do ei wall aisiMi the ahen Klortmi> 

INVASION ORION use* the MftptS, but u">u«ie and nhsHeBJ 
mg STAHFLEET ORION 9»mn itaiefn. bu< »>nc* you- 
opponent ami human we've ntoffammed «"o compuiar 
to play iha tftorrsu INVASION ORION is compute *"•» 
progrem cassette. 64 page Banlemenwa' end tonliol sheen 
H) atf-new tamnm IHeouiin TRS 80. Lave* II. I8K) 

Ask your local deatei or lend SI 9 95 to: 

Aulomaied Simulaliom. Depl. U. P.O. Boa 4232. 
Mountain View. CA. 94040 

California residents please add 6% tale* tax. 
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THE GREAT TURN ON 



L90 Chrlstopherson 
T acorn a, Wa. 

As promised In our last Issua. Leo his finally 
contented lo recount for us the trials and 
tribulations of getting from SET and POINT 
graphics to such wonders as: Android Nlm. 
Snake Eggs, el el. Hang on lo your hats, while the 
"Guru ol Graphics" takes us down the road the 
THE GREAT TURN ON. 



Ever since I began programing my TRS80, I 
have been obsessed with a desire to see most ol 
the screen turn on quickly I've always felt there 
must be some use for this, although I'll have to 
admit I've never really needed a white screen 
which got that way quickly. Nevertheless, you 
may be heartened to hear of the twists and turns 
which led me to success. II nothing else, It 
shows what a very versatile machine we 
possess. 

FOR NEXT LOOP 

Of course, my quest began with the FOR-NEXT 
loop and SET POINT commands. Thai one goes 
something like this: 

10 CLS 

20 FOR Y = TO 47: FOR X = TO 127: SET 

(X.Y):NEXTX.Y 
30 GOTO 30 

As a first try, It was somewhat encouraging, 
but tar too slow (about 45 seconds). 

USING CHRS1191) 

The next Idea was to use CHRS(191) to tum the 
whole print area on in each of the 1024 positions. 
That looks like this: 

10 CLS 

20 FOR X = OT01023:PR1NT®X,CHRS091);: 

NEXTX 
30 GOTO 30 

Not only was this also too slow (about 10 secon- 
ds), but It bumps the screen up at the end. 

Then came the approach as suggested In the 
Level II Manual 

10 CLS 

20 FOR X= 15360 TO 16383:POKE X, 191: 

NEXTX 
30 GOTO 30 

This one looks pretty good, it certainly 
works. ..but It still takes too long, (about 7 secon- 
ds). 
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STRINGS 

When I first saw the STRINGS ( ) command, I 
thought this might do the trick: 

10 CLS:CLEAR64 

20 X$ = STRING $(64. CHRSH91)) 

30 FOR X = 0TO980 STEP 64:PRINT®X.X$;: 

NEXTX 
40 GOTO 40 

This works faster, (about 0.6 seconds), but 
again, It jumps the screen up at the end. A 
second version of this one takes advantage of 
the potential siring length of 255 bytes. 
10 CLSCLEAR255 
20 X$=STRING$(255,CHRS(191)) 
30 FORX=1to4:PRINTXS;:NEXTX 
40 GOTO 40 

This one also runs In about 0.6 seconds, but It 
leaves a small corner at the bottom right of the 
screen This could be patched In, but I felt 0.6 
seconds just wouldn't do anyway 

USft{0) 
Sweet success has finally come In the form of 
a USR(0) machine level routine: LD 
BCM6/64/LDHU0'607LDA/l9l/LD(HL),A/INC,HL/ 
DJNZ/252 

LDB/641DEC, C/JRNZ/247/RET. When the ZB0 
hex codes for the above commands have been 
convened to decimal so that they may be used In 
Level II Basic, the routine looks like this: 1/16/ 
64/33/0/60762/ 191/11 9/357 1 67252/6764/ 1 3/32/247/ 
201. Now watch carefully* We say In basic: 

10 XS=CHR$(1)+CHR$<16)+CHR$<64)+CHRS 
(33)+CHRS(0) + CHRS(60)+CHRS(62)+CHRS 
(191)+ CHR$(1 19) + CHR$(35) + CHR$(16) + 
CHRS(252) + CHRS(6)+ CHRS<64)+ CHRS(13) + 
CHR$(32) + CHRS(247> + CHR$(201) 
20 X1 = PEEK(VARPTR(X$)+1):X2 + PEEK 
(VARPTR(X$)+ 2): POKE 16526,X1:POKE 16527.X2 

Now we are ready to go. Any time In the 
program where the screen is to be turned on, |ust 
insert X = USR(0) and on it corneal 

The first three commands load register C with 
a 16 count, to count the 16 rows on the screen, 
and register B with 64 for the 64 character 
positions In each row. The next three commands 
load the HL register pair with the address of the 
first position of the video memory. The next two 
commands load the A register with 191 which Is 
the"Ali On" graphics character. The next com- 
mand places the 191 In the first (or next) video 
memory position. The next command Incremen- 
ts the HL address to the next memory position 
The DJNZ/252 subtracts 1 from register B and it 
the result is not zero, lumps back lo the LD(HL). 
A command. When B Is zero, (and 64 191's have 
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been set across the screen.) the next ..tree 
commands count down by 1 (he number ot rows 
left, reset register B to 64, and if the number ol 
rows left In register C Is not zero, |ump back to 
the LD(HL).A command. When the last row has 
been done, the subroutine drops back Into Basic 
with the RET command. 

Une 10 actually creates a string, the elements 
of which are the machine level commands. Line 
20 uses the VARPTR($) command to locate the 
beginning address of that siring in memory. 
Then this address Is poked into the address bytes 
ol the USR(O) command. 

USING NAME INSTEAD OF URSfO) 

An even more elegant method to turn on the 
screen Involves the "NAME" command which la 
built Into Level II Basic but Is not used. It may be 
appropriated tor one's own use. Even In DOS this 
command Is thus lar nol used, and remains 
available. Thus, the "NAME" command may be 
used as a vector to one's machine level 
programs, much as USR(O) In Level II may be 
used But. unlike USR(O), the NAME command 
remains useable In DOS as well as Level II. 
(USR(O) will not work In Disk Basle. Instead It 
uses USRx(X), where x= an Integer between 
and 9. The two USR functions are not com- 
patible) 

Two things must be observed: (1) the begin- 
ning address of the machine level routine must 
be POKED Into the NAME location and (2) Ihe 
programer must be sure to preserve the content 
of the HL register pair and restore this content 
just before exiting the machine level routine 

This last time around for the "turn on" routine, 
I will also Illustrate embedding the subroutine as 
a string within the Baalc program. This serves 
two ma|or purposes. The first Is that with the 
subroutine embedded in the Basle program as a 
string, no extra space Is needed at the end of 
memory fora'bullt-up" string, as was Ihe case In 
the previous "turn-on" example using CHRS( ) + , 
Space Is saved, in that all the "CHRS ( M 
business Is not needed. Time Is also saved, sin- 
ce when running the program the string does not 
have to be "put together" from CHR$( ) comman- 
ds Only the string's address needs to be recor- 
ded In memory. The second important advantage 
here is that the machine level routine may now 
be placed near the beginning of the Basic 
program. This Is Important it you wish your 
program to run In both level II and Disk Basic. 
The Disk Basic takes up a fair amount of the 16K 
and in a lengthly program, may cause the "CHR$( 
)" type of routine to be pushed beyond the first 
16K of memory. This results in a memory ad- 
dressing problem which make Disk Basic and 
Level II addressing Imcompatlble. So, as long as 
the "NAME" command points to a string address 
In about the first 5K of your program. Ihe 
routines will work In both Level II and Disk Basic. 

Now, on to the details of the great turn on The 
first thing to do Is to prepare a dummy strina to 



hold memory bytes open for the machine level 
routine. Since the turn on routine now has 21 
byles, we will set XS eaual to 21 periods (or any 
other character except the quotation mark, 
which Is ASCII 34). A "34" would be read by the 
machine as the end of a string. And, by the way, 
the Z80 command "34D"D or "22"H, which Is 
LD(NN),HL", may not be used, and care must be 
taken so that addresses to be called , jumped to 
or pointed to will not contain a "34"D byte. Also, 
"0" may not be used, since this would look like 
ihe end of a line to Basic II. This rules out the ZBO 
command "0" or NOP If a register has to have a 
"0" loaded from the subroutine, a "1" may be 
loaded, then the register may be decremented. 

So we have. LINE 10 X$ = " ". Next 

we have to be able to tell the machine where to 
find that first byte beyond Ihe quotation mark 
which will be the first command of the machine 
level suboutlne. Here we again use Ihe "VAR- 
PTRO" command. LINE 20 X1 = PEEK(VARPTR 
(X$>+ 1) :X2= PEEK(VARPTR(X$) + 2):X0 = X2' 
256* X1 xi Is the decimal value of the least 
significant byte of the address of the first byte of 
the string and X2 Is the decimal value of the most 
significant byte. Thus, XO is the complete 
decimal address of the first element of XS. 

The next Job Is to load this dummy string with 
the actual machine level values we wish to have 
there. A data line Is set up with the decimal 
values for the machine routine. LINE 1000 DATA 
229.1,18,64,33,1.60,45.62.191.119.35,16.252, 6.64. 
13.32,247,225.201 

(Notice Ihere are now more bytes In the turn- 
on routine. The first byte. 229, Is PUSH HL and 
the next to the last byte Is 225. or POP HL. These 
Iwo commands preserve the content of the HL 
register pair, the need for which was already 
mentloned.The HL bytes are PUSHED onlo the 
stack until needed, when they are POPED back 
Into HLThe other change occurs In the sixth and 
eight bytes. Here we have to have a "0" In the 
register L to complete the starling address ot the 
screen, but we can't actually have a "0" In the 
siring, as was mentioned before. So a "1" la 
loaded in L and L is decremented) 

Next we set up a FOR-NEXT loop to FOKE the 
DATA values Into X$. LINE 1010 RESTORE: FOR 
N = 0TO22:READ D:POKEX0 + N.D NEXT 
N:STOP This line will POKE each successive 
byte of data Into XS. beginning from X0 which is 
the address of the beginning of XS 

At this point, all that remains to be done Is to 
work up X = USR(0), or NAME, or perhaps 
LPRINT"0"; to vector in on XS when called. To 
use USR(0) we would POKE 16526.X1 and POKE 
16527.X2 ThenX= USR(0) would be used to call the 
subroutine. To use LPRINT'O" we would POKE 
16422.X1 and POKE 16423.X2. Then LPfllNT"0" 
would be used to call the subroutine. USR(0) has 
problems, as mentioned earlier, If the 
program Is to run In both 
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Level 11 and Disk Basic. And LPRINT"0" can lead 
to a curious problem because ol an echoed or 
repeated call of the subroutine when one breaks 
out of the program. Also, LPRINT"0" redirects 
the line printer driver to your subroutine and the 
printer will no longer work unless the original 
address la put back Into locations 16422 and 

16423. 

So NAME looks best, since It has proven to 
have no serious drawbacks. For NAME lo be 
used we would POKE 16783.X1 and POKE 
16784.X2. Then Just the command "NAME" Is 
used lo call the subroutine. We will add a LINE 30 
POKE 16763,X1:POKE 16784.X2. At this point the 
NAME command Is ready to go. Insert II in your 
Basic program whenever you need the screen to 
turn on. (of course, the program will have had to 
run once through lines 10 to 30 to set up the ad- 
dresses for XI. X2 and NAME You may have 
noticed that variables are lost during an EDIT or 
at the command RUN and must be recalulated.) 

After the string has been packed, lines 1000 
and 1010 may be deleted, since the machine 
level routine In X$ will record on tape or disk 
right along with the rest of the Basic program. 
The string will not have to be done again. Also, 
the X0=X2*258 + X1 may be dropped from the 
end of line 20. So the whole program looks like 
this: 

10 X$«" " 

20 XI = PEEK(VARPTR(X$)+ 1):X2 = PEEKfVARPTR 

(X$)+2J:X0 = X2'256+X1 

30 POKE 16783.X1. POKE 16784.X2 

1000 DATA 
229,1,16,64,33,1,60.45,62.191.119,35.16.252.6,64. 

13,32.247.225.201 

1010 RESTORE: FOR N = 0TO20:READ DPOKE 

X0+N,D:NEXTN:STOP 

To test the routine you might set up somethng 

tike this: 

100 FOR N = 1T0100:NEXT N:NAME 
1 10 FOR N = 1T0100:NEXT N.CLS 
120 GOTO 100 

These lines, In addition to the previously set 
up lines 10 to 30, will cause a repeating on/off 
blinking of the screen. When the program Is 
listed, line 10 looks like this: 
10 X» = "PEEK®IX-XUSINGW# 

Things look strange since the Basic Is trying 
to Hat values less than 30 and greater than 127. 
That "PEEK" Is the command "PUSH, HL" or 
229. The "1" and "16" don't list at all. The "©" la 
the "64", and so on. Certain control characters 
can cause the listing to roll or "hop" when en- 
countered. But . It all works when "RUN", so 
long as "0" and "34" are not in the string. 

I feel sure that there are other routines In 
machine level which will do the job too, and 
perhaps more efficiently, but at least this one 
certainly works. And. - I proved to the machine 
|ust who Is the boss.. .I think* 
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Personal 
Computing 

For the "Plug-in" 
Professional 

We don't tell you how la build a computer. We don't 
(ell >«<u BOH ioie\l it 01 repair u We dtin'i even tell 
you how a computer works 

But we do lihow- you bow to use computers lo make 
money, save tune ami haw 'tin *t yourbusinevs. ol 
fice, school and home Each mtMith. our informative. 
easy lo- read artii MBtfafmfl you irads louse anplica- 
I ion programs, imtlypc them in and ivll \"ur lOOI p U aM 
to RUN 

In the ne\t lew iiamn we'll hmeooniprenemive 
information retrieval system a program for esiahliih 
inp the most profitable tales lor small untitle* and other 
busim ivoiil processor that lets you print flaw- 

less text easily . a patient information tiling system for 
doctors, a small business program to keep track ot ( ...h 
and account transactions , a PET pn>gT»m lo measure 
the readability o| ttSl and a program lonclp sonny 
children learn ttu* iJphabct 

In addition. *c'll have iiinwial articles showinc >ou 
how to plan anil Wfttl yOM >•*■" programs, using pro 
(cssion.il method* and the latest poigrammmg lech- 
niqucs 

ii monlhlv issue also includes new pmducts 
I ompulcr chess and bridge, ami new* and happenings 
in the microcomputing world 

II tou'rea pluy in ' prafetftaml mtciesled in us- 
ing computers in your daily life, we'll show you bow 
I <se this coupon to OTOei VOW Miti«* "prion today 
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Level II TRS-80 + The LIBRARY 100 

You shouldn't have one without the other!! 
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INTRODUCING: Custom fur- 
niture for the TRS-80 office 
or home decor. 

Now for the first time for any computer, custom all wood office furniture la 
available for the TRS-80 micro-computer system to complement any office or home 
decor* It has been design, not only to enhance the decor, but to provide maximum 
work surface area, and ease of operation. 

The unit fits snuggly Into the corner and mates with an optional matching printer/ 
typewrltter platform and/or storage hutch. It normally replaces or works In con- 
junction with a storage hutch usually found behind executive desks, to provide 
wrap around operation. 

The corner unit Is capable of handling a complete TRS-60 system, with the line 
printer setting on either the optional pTtnteT/typ&irLttBT platform or the atorage 
hutch. All THS-80 units, though built In, simply drop into place and do not require 
any mounting hardware or tools. 

The standard unit lncludesi Mounting capabilities for the monitor, cassette, key- 
board, and oxpansion Interface) Keyboard cushion hand rest) and a accessory drawer. 
Also available are the options of mounting the screen printer and/or disk drives. 

For complete details and pricing information contact! 
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MOVING 
UP 
TO 
LEVEL II 



Mai* ii ■ leprssentxtiia example ol what 
to expect If you »■• convening Irom Level 
I lo II II may alto provide ■ quick review 
lot you "seasoned oldtimers" aa wall aa 
a bit of noslalge. 



Sooner or later every Level I user feels 
the need lo have the Level II conversion 
done lo hie TRS80 Marketing aside, 
there Is only so much thai you can do tn 
Level I belore you need the advanced 
capabilities of Level II. Every Level I user 
reels restricted al some lime by hevlng 
only 2 airing variables and no string 
array capability, no expansion possible 
lo disk or line printer and little format- 
ting capability All ol these possibilities 
make the Level I owner haunt the store 
waiting tor his new Level II package 
hoping that It will be a cure-all (it lsn'1. 
but that is a subject tor another article) 

Since every Level I owner will probably 
move up to Level II. II would be useful lo 
know some ol the pitfalls In shitting lo 
Level It What can go wrong when 
making the conversion, and how can you 
prevent some of the problems from 
stopping you cold? Let's take a look at 
the problems I had Von may came up 
with some new ones, but you win likely 
run into most of these 

My problems started out when I first 
decided lo step up to Level II l had read 
thai Level II had no abbreviations This 
was something I thought I could prac 
lice Don't do III Much to my em- 
barrassment. I found that the non 
abbreviated words In Level I don't always 
match those in Level I), and what was 
more importsnt. the tape conversion 
routine supplied to convert Level I to 
Level II didn't change anything but ab 
brevlatlons. So In Level I. I was prac 
tiolng PRINT AT but the conversion 
tape didn't change this to the proper 
Level II form "PRINT #" So there I 
was, many of my programs would not run 
because of translation problems, which 
would have been solved had I not been 
so anxious lo gel ready 

Once my system came, my wife didn't 
see me for a week. I spent all ol II locked 
m my study with the computer trying 
out all the nice new commands. I learned 
the language fast, but also ran into one 
problem after another. It turned out that 
despite my ellorts lo "unlearn" Level I 
abbreviations. I still programed them in- 
to my Level II programs with alarming 
frequency. This ted me to an immediate 
familiarity with another major difference 
in Level II. the error codes From now on. 
the computer only gives you an error 
code ("SN" ERROR Is an old buddy of 



mine us a syntax or spelling error) and 
a line number They showed us where 
■he error was in Level I, but since you are 
now more experienced, Ihey thought It 
wasn't sporting lo give you loo much 
information. They added more detail 
about what the error was and removed 
information on where It is When you 
have a long line which ties several 
statements in it. finding one syntax error 
in it can give you grey hair rather quickly 
unless you took care lo program with 
debugging in mind. Even then, u a 
corollary to Murphy's Lew, I might 
suggest mat It is a proven fact that any 
error pointed oul by the computer In 
Level II is in all probability so obvious 
that you look straight al it tor five 
inn-. it#» without realizing it is wrong Un 
til I got to know the error codes, I put e 
copy of them from the Level II manual by 
the computer tor easy reference 

Which brings us to the subject of the 
manual David Lien's Level I manual was 
a jewel It led us through Basic as simply 
aa can be The Level II manual la another 
story altogether. Don't expect to be able 
to read the Level II manual, It Isn't that 
kind of book In fact it Is set up aa more 
of a reference manual which you can go 
to after you alreedy know how to 
program In Level II In other words, to 
use the book at all. you have to have 
already learnsd the material so you can 
find it and use Ml To say the book needs 
work i« an understatement Whan you 
expand your system even further, you 
will find that Ihe book will not expand 
with it In 'act. Ihe manuals for Ihe 
equipment you will add in the future will 
be even less readable. That is not too 
bad it you happen lo be an old computer 
buff and know your way around, but the 
overage user will not be able to get 
anywhere without eflort 

The handiest thing t found was going 
through Ihe book and trying each com- 
mand In as many ways aa I could think ol 
lr» see what the limitations were. 

Most of the recurring problems In 
convening to Level II were nol with 
programing, they were with converting 
Level I (apes to Level M with the conver- 
sion program In Level I, I used the ex- 
pression "TAB 1.10). A' In my print 
statements, but the comma Isn't taken 
oul by the conversion program and Level 
II gives a ayntax error when it is there. 
Until I round thai comma, my graphics 
which relied on TAB'S just didn't work 
right on Level M Also. II you are in ihe 
habit of leaving spaces between the 
'TAB'' command and the paransfle. 
TAB (19) Instead ol TABH91 you will get a 
"BS error (subscript out of range) You 
can spend all day looking for an array, or 
correcting one that happens to be on the 
same line belore you llnd that il Is nol 
the array al all 

Since I didn't have a print- 
ler on wmen to list programs, the boat 
way to debug Ihe programs was to run 
lliem right alter conversion, and lorce 
ihem to take each option available In 
this way when I came to en error, the 
program stopped at the line, gave me an 
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error coda, and let nn li» il Starting 
execution again took ma lo th« next 
error Continuing this process Allow* 
ona lo clear the [trout am of error* or lor 
to CSAVEino the program 

I lound the data conversion tape 
provided to be just too much bother to 
even try For a very short data lap*. It 
would probably work OK But I had soma 
rather large data (Ilea on tape, and the 
conversion program requires thai you 
read In one data record, remore the tape. 
put in a new data tape, record the data 
record, remove tha new tape, put in the 
old tape, read In another data record, and 
ao on This was |u*t too much 
ridiculousness lo bear I was able to 
reconstruct my data tapes faster by 
typing them in from the keyboard. 

A clearly noted problem Is the milter 
of tape recorder volume, especially 
during tape conversions Level II tapea 
are recorded and read at a lower volume 
setting (4 5 far I avsjj II "npsred lo 7-8 
(or Level I) Thla means thai you must 
change Ihe recorder selling before each 
(ape If the recorder Is set loo low 
because you (ust recorded a Level II 
tape, and you try to read In a Level I tape. 
Ihe conversion program will not indicate 
en error, but when yuu tint Ihe program 
you will gel garbago You can handle the 
problem In two ways, one is lo modify 
the conversion routine lo tell you to 
check the recorder selling, the other is 
simply lo make n sign lot your TRSfiO 
which says "RECORDER VOLUME" 
Once you have llnlshed with the conver- 
sions, you will rapidly become ac 
customed lo the proper Level II sellings 
for ihe recorder 

Be sure lo read Ihe lane conversion 
book before trying a conversion The last 
few lines in Ihe conversion routine sec- 
tion tell you how lo toad the conversion 
laps so you can evscuie n lor more then 
one Level I tape (that's what Ihe 
"MEMORY" SIZE? (luealloft Is forll An 
experienced Level It inter find! thla 
trivial, but when converting from Level I 
the problem la a real one. 

Once you hffasj completed your (trat 
tape conversion, you are in tot another 
surprise Since you have programed 
Level I. you probably didn t pay much at- 
tention lo the "LIST" command when 
you went through Ihe inference mami.il 
So you want lo see ihe program you |uat 
converted and you lyp* LIST' and 
press enter Stand by tor a good show 
and watcti Ihe program statement* fly by 
at a rate which prevents reading IMNtl 
Level II doss not paga Ihe Hating* or 
allow single stepping Iriaiead. |usl 
typing "LIST" will cause the Unas to run 
by.lt turns out that there are iwo useful 
ways to atop the listing so you can aee 11 
Ths first (and nicest) I* to press "SHIFT 
W". which stops trie execution of any 
command including a list, and causes 
Ihe display to freeze Vou can restart Ihn 
ust by pressing any key It seeme to won- 
besl It you keep (wo lingers sol on the 
right side shift key and the 6 key Press 
•hit! all Ihe lima. and n"*s*«y n>fln>' 
atop the display Vou can alto list a 
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small portion of trie progtsew isay lines 
100 to TOO) by typing ttSTino-200" Thla 
will M*1 only those lines Be MM 
though the scteen lists only 16 lines, If 
there are mnre than thai between 100 
and 200, you will only see the laat lines 
The ayaiem also prints a READY" After 
Ihe last line, so make room lot that when 
you choose the range of lines. 

If you have only programed In Level I 
Basic, It will take some time to get used 
lo Ihe army capability Nl level II H is a 
powerful way to store and use numbers 
However, the first lima you use e large 
I than It) array or convert ona from 
Laval I, you will run directly into a new 
statement (and a new error ■ 
DIM" statement With Level II you hnva 

10 (all the computer to set aside space 
(or arrays latger than 1 1 elements To do 
this you put the maximum number of 
□laments In a dimension statement like 
this OIMA(IOO) 

which tells the computer to leave 100 
spaces lor array A If you don't do this 
and you ask lo put something in array 
space 1 1 or higher, you will get BS etror 

String space Is also a problem In Level 
II. The computer makes 50 spaces of 
-wring apace available automatically, hut 

11 you are going lo need more, you have 
to execute a "CLEAR" alaiement To do 
thla, you decide how much string spaoe 
you will need, and then execute 
"CLEAR1000" tor eiample. lo clear 1000 
memory locations tot sitings Be carelul 
to put thla statement belore all other 
statements in your program. II you put II 
after a dimension statement or alter you 
Neva values stored in memory, you 
lose the dimensions or the values since 
"CLEAR wipes memory clean it you 
put a cleat statement In Ihe middle of a 
program, you will be stopped al the first 
calculation alter the clear. 

The tint facility I tushed to try when t 
got my Level II system was the AUTO 
line numbering Just think, ihn computer 
woukl keep track ol my Mne numbers! 
The one thing which Is no) really pointed 
out is that the line you type In Is not 
Ihere in program memory until you hit 
enior II you type a tine and then Ml 
break lo end Ihe auto function, you will 
lose Ihe test line When you use "AUTU 
>*tl lines inside a program, an "*" 
will appear to tell you a line already 
exists with thai nurnbar If you then hit 
BREAK, the old line will still be the*! 

If you use graphics, you will have lo 
get used lo Ihe acnmn Mmits Ml Law 
In Level I you could write graphics which 
wrapped around lha scteen. bul In Level 
II It will get you another error cert] 
Illegal Function Call) You will need to 
teprogram any elfects which rely on Ihe 
wrap around screen 

Speaking of graphics, everyone with 
Level |l should run the program on Paga 
CJ3 of Ihe manual II shows you the 
capability ol Ihe graphics blocks wim 
CHRJ and ASCII characlara 

From the very start, get yourself into 
the habh rtfl your lanes using 

ma capabilli- 

haveawayro': 



1 lence thai your tapes will be good. 

It any of your programs ere designed 
lo run at steps Inside the program, 
allowing you lo set variables before you 
execute, ot II you check out program 
operation by running steps until you find 
an error and then running from the point 
where Um error occured, you will bs In 
lot e shock in level ll. each time you 
type "RUN' . Ihe system automatically 
executes a CLEAR" and resets all 
variables lo rero You can get around 
thla In several ways. First, you can build 
In error checking, routines at standard 
locations which assume variables ant 
set to faro. These routines can establish 
Ihe variables they need, and Ihen check 
out your program execution as desired 
You can also roaume execution of the 
program without losing your variabilis by 
executing a "OOTO" in command mode, 
directing execution to Ihe step you want 
to begin at You can even atop a program 
In execution, modify some variables, and 
then execute a "GOTO" to whatever 
place you wish to restart execution 

SUM another useful lealure in Level II 
is the TRACE capability which you get by 
executing "TRON" When you start e 
trace, it lists ihe line numbers as they 
execute in Ihe program You can use the 
statement Inside a program or In com- 
mand mode. Once started, K will not 
slop until "TROFF" is executed You can 
follow the execution of loops in a 
program or follow the path ol logic 
through a series ol steps lo see |usl how 
your program logic handles a condition 
Be careful though, ll tllla up the screen 
very fast when you have a large loop 
with Ihe trace on. 

The lasl capability of Level H I want to 
mention la Ihe Editor . This one lealure ol 
the system will get mora use than any 
other Nearly every program will have 
typos or outright errors to correct and 
the EDIT mode is Ihe tight way lo do Ihe 
corrections I lound thai in changing that 
l became locked into a small set ol in- 
structions which I used repeatedly For 
example. I started using the "S" and M 
commands frequently enough to 
remember ihem "S" does a search, "H" 
deletes the rest ot Ihe line and puis you 
into the insert mode. Alter a while, I 
lound myself using "3" lo skip to the 
end ol the line by asking n to search for a 
letter I knew was not in the line Then! 
would press "H T (even though 'I" for In- 
sert, would have been more logical) This 
process is Inelllcerit, since a single 
command. X" will automatically ac- 
complish this l decided that ll would bs 
a good Idea lo Mil Ihe commands and a 
one line description on a sheet of paper, 
placed near Ihe computer for easy 
rHnmnce. 

Every day I learn more about Level II. I 
think you will find your conversion lo 
Levnl II in be similar to mine, full of large 
end small errors, goofs, and plenty of 
practical proofs to one ol the corallarles 
lo Murphy's Lew. If everything seems to 
be going well, you have obviously 
overlooked something ' You will also 
tiavi" n lot of lun with Level il# 
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A note on disk basic 



Level II BASIC It much mors efficient 
than Lovel I. but Ihere are many things 
that can be dona to improve the efficien- 
cy of a program Page 11/2 In the Level II 
Manual Hats 6 methods for improving 
program elocution apeed. It thla la Im- 
portant to you, than you should read the 
page carefully 

The moat Important method is the uae 
of Integers for loop Indices icovered In 
another note), but anolhsr very Impor- 
tant method for speeding up execution 
is to use variables Instead ol constants 
In expressions It luma out that it is 
faster to find a variable than lo convert a 
constant to the proper form for uaa In 
mathematical enpreastons 



Hera ara aome more interesting 
routines available lo DOS users 

4043 address of (he highest usable 
location In memory 

4047 addresa of the lowest usable loca- 
tion In memory 



TRS80 

DOOM CASTLE 


Jew*** to Doom Caatla >a IhM uaaauia ■—corf and monaW a ana than 
(nttOBOTpac* Allaa lo •pand fouf toot 

rhia a mm fourth cwogiar" to* Hupwt Co*u and aw ra* H la ir* twai 
mm «a ku to iturM ol fl aa an aclton «w»w in uowo ol inia pama n 
fna ww u ii ii in lira, lo aurvtva and tan aoma •«" along lha »ai 
Whan n eonwa to 'antaa T tola waying campaign* rou muat aat •■•<:- 
Mxna lima tona Ik>u> ID Inluiliyi lo eta* fuui m«W ol all l«» omdai- 
Oul, ol a»a>yUair Ula and W«< »■* *"<> "» §•*>• SmoM (nam il ydu MM 
tfwm ■ndW aom* ilia. mtxMmtm II row rta-a «aaf vatVM CMajaawa and 
Pragana » Tunnan and Ttula of raad JNR TMkwn • Lord i" IM Mnae 
*ou"«a gal l*w mad nfOwaMtrMon* you a-IN leva tna naaiona< 

«¥a also Mawi "al pfogianii 


•rtt SM>m Sawaa 
HaWr—ad. •*«**■ MOW 


Jfb ^\k. 


' '""*) vaH A lBBBBBBB*wnBBal ^r 


^Jm,MK^ 


"*#aw-a-fatl / ^ ijr ">,mrj 


^^■■■■ibf aj w^ 



The "DATA DCIBBER" f 



DUPLICATES ANY 
PROGRAM TAPE 



TRS-80 



Yea. even those in machine language! Feed your cassette into the Data Dubber and 
gel out enact replicas of the TRS-80 CSAVE data pulses. Obtain pert ect CLOAD s even 
from tapes with hum, distortion, or minor dropouts aridwtthcajtconstaniryisdjustlno. 
the volume Connect a second cassette to the "Data Dubbei and make perfect 
reproductions. Just as If the data had come from the TRS-80 

The Dubber works with Level I or II and coals only >3995. postage paid. Start your 
own software business. Pays for Kaeff In time saved and reduced tape cost Order the 
Data Dubber" today! If you are not completely satisfied with Us performance simpry 
return It for full refund 



Mr. .«««• 



THE 
DATA 

DUBBER 



■ ■» ««i«rMi r>«oj»v 
-" *■• 

I -l I - IE •» 



THE PERIPHERAL PEOPLE 



PO Box 524, Mercer Island. WA 98040 
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The ad said, 'What. Another Blackjack 
Gama?»". and that is precisely what I 
thought the drat time I saw It But hold 
on) It'a nol naaliy a game at all. It la a 
complete tutorial program (or helping 
you Improve your playing skills 

In the prelate to the instruction 
booklet which comes with thia program. 
me author placed the following. 

8ucker: la title a game ol chance?" 

W.C Fields "Not the way I play it. 
no." 

(From W C Fields in My I tills 
Chickadee" 

Well, mid summer madness and 
vacation time are upon us. Perhaps you 
will want lo try your luck In Atlantic City 
or Vegas This program will help you 
sharpen your skills at Blackjack. It 
comas on a 16K Level II tape, with a 
booklet by the author and includes a sot- 
leaver. 220 page book entitled. "Beat the 
Dealer", by Edward O. Thorp 

The program Is easy to use and prom 
pis you all the way (see tlgure I) There la 
considerable use ot graphics and the 
cards actually sewn to "Hip" over on the 
screen 

Aside Irom ell that thougn. you can 



specify exactly the kind of practice you 
wiah With or without help from fhe 
program You can play mote than |uat 
one hand at a time, and with up lo 4 
decks of cards, vou can specify lhal hole 
cards be dealt face up, that Black|acks 
be turned up Immediately upon being 
dealt, whether or not the dealer show the 
"Burned" card, and much more You can 
practice 4 different types of strategy, 
with several levels of assist ance 

It you are really Interested In learning 
to play Black|ack fo win, you could 
spend much more than this program 
costs for a private tutor (and the com- 
puter won't even snicker at your goofs!) 
The program offers both the precision 
that practicing without coaching lacks, 
and the infinite patience which no tutor 
can hope to provide This does not mean 
lhal WIN 21 will permit effortless 
mastery of the game. But it does mean 
that your efforts should lead lo learning 
more efficiently. 

The program, instruction booklet and 
the book by Or Thorp are available Irom 
Oracowry Bay Software, P.O Box 464, 
Port Townaand. WA. 96368 The price la 
IUBIS2900 



WIN21: A PRACTICE AND TUTORIAL PROGRAM FOR WINNING BLACKJACK 
(C) COPYRIGHT 1979 DISCOVERY BAY SOFTWARE CO. 
ALL RIGHTS RESERVED. 

A. HOW MANY DECKS (1, 2, 3, OR 4)? 2 

B. HOW MANY HANDS DO YOU WANT TO PLAY? 3 

C. HOW MANY PLAYERS ON YOUR LEFT? 2 

D. HOW MANY PLAYERS ON YOUR RIGHT? 2 



E. 
F. 
G. 
H. 

I. 

J. 



SHALL PLAYERS* HOLE CARDS BE DEALT UP (Y OR N) 
SHALL ALL BLACKJACKS IMMEDIATELY BE TURNED UP 
SHALL DEALER SHOW THE BURNED CARD (Y OR N) ? Y 
MAY ACES BE SPLIT (Y OR N) ? N 
SHALL DOUBLING DOWN BE WIDE OPEN (Y OR N)? N 

OKAY. YOU MAY DOUBLE DOWN ONLY ON 1 OR 11. 
SHALL INSURANCE BE OFFERED (Y OR N) ? N 



? Y 

(Y OR 



NJ 



K. WHICH STRATEGY DO YOU WANT TO PRACTICE? 

1. BASIC STRATEGY. 

2. FIVE COUNT STRATEGY FOR BET SIZE. 

3. SIMPLE POINT COUNT STRATEGY FOR BET SIZE. 

4. COMPLETE POINT COUNT STRATEGY. 



WELL?. . . 



Figure 1 
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VIEW 


Of 


FROM 


THE 


THE 


STACK 


TOP 





T. Rosmnbau/n 
Technics! Bttitar 



The stack is widely used lor temporary 
storage of ihn operating registers / AF.BC, 
OEHL,IX,W Whan a subroutines 
CALLed. any inlormallon tn the 
operating registers which la required lor 
proper program operation upon retur- 
ning must be stored somewhere so that 
the aubroullne can uae Ihe operating 
registers without bombing the program 

Consider ihe following example 
You have built a program which will Iran 
flier 912 bytes ol data Irom one section 
ol memory to another You have alao 
built a subroutine which will detect whan 
256 bytes heve been moved and will add 
80 (hex) to the laal 256 tryies moved 
Your program usee the HL register pair 
to atore Ihe address ol the current byte 
being moved, the DE register to atore Ihe 
address to which Ihe current byte will be 
moved and Ihe C register to store Ihe 
value ol the current byte. II Ihe contents 
ol Ihe C. OE or ML regielers are changed 
In your subroutine, your mam program 
will bomb when you return to II You can 
prevent Ihts by storing Ihe contents ol 
these regiitea In RAM before executing 
the aubroullne and reloading the 
registers Irom RAM before leaving the 
subroutine The easiest way to do this la 
to PUSH Ihe registers onto Ihe stack 
Immediately alter you nave entered the 
subroutine, and POP them o" |ust before 
leaving It . A general eiample follows 



M M 



CALLSUBR 



PUSHAF 
PUSHBC 
PUSH DE 
PUSH HL 
PUSH IX 
PUSH IY 



isiitirnutinaoodcl 



POP IV 

popix 

POP ML 
POPDE 
POPBC 
POPAF 
RET 
The subroutine code may uae any ol 
the operating registers without leer ol 
harming Ihe main program II the 
subroutine does not use some ol the 
operating registers II is not necessary to 
store tnelr value on the alack However 



you must beware CALLa into Ihe Lewi II 
ROM unlets you Know which registers 
the Level II ROM subroutine is using 

Note in the above enamplfi 'hat the or- 
der of Ihe rogisteis POPod off Ihe stack 
is the exact reverse ol the order they are 
PUSHed onto the stack. Thia la because 
Ihe alack operates on the Last In First 
OUT (LIFO) principle 

PROJECTS Irom previous issues 

i The first pro|act involved building a 
program which would print all ot the let 
ten of the alphabet on Ihe ecrean The 
most elleclenl way to do this Is to load 
the ASCII code lor the alphabet (41M- 
SBH) Into the appropriate locations In 
the video RAM (3C0OH 3CFFH) with the 
DJNZ instruction. 



LOWS 



IMC 


A .ASCII 


LD 


(HLJ.A 


INC 


HL 


OJNZ 


LOOPS 



LD 

LD 

LD 

LOOP LO 


BC,I,AH 
HU3C10H 

A.4IH 
(HL) ( A 


set up lor 26 characters 
store at 3CI0H 
.ASCII A 
.store to screen 


INC 
INC 
DJNZ 


HL 

A 
LOOP 


•nasi display posit ion 
next letter 
.loop thru 2fl letters 



2 The second protect was to develops 
program which will print every other let 
ter of the alphabet This program is very 

similar to the above 

LD B,0OH .a*! "P lo * * 3 characters 

LD HL.3CI0M 

LD A.41H 

LOOP LO <HL» 

INC HL 

INC A 

INC A every other letter 

DJNZ LOOP 



3 Finally we had to make a program to 
put len 'A ten '"Be" and ten "C'e' on 
the screen In conaacuuve otder starting 
at3C50 





LO 


HL.3C50H 


store at ;tC50H 




LD 


B.QAH 


.ten characters 




LD 


A.41H 


ASCII A 


LOOP1 


LD 


(Hl).A 


» to display 




INC 


HL 






DJNZ 


LOOP I 


;loop ten times 




LD 

INC 


B.OAH 

A 


ASCII B 


LOOP2 


LD 


(HLI.A 






INC 


ML 






DJNZ 


LOOP2 






LD 


B.OAH 
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PROJECTS FOR NEXT ISSUE 

i Build * subroutine* which will put n 
is squat to en greater than «ro 
end h*BN ihon 2561 characters o- 

*n Assume thai when the 
roullM is CALLed. Iho opaallng 
'.tin inn toJtowing tnfor 
math 

* ASCII code) ol character lo he put m 
Rfeen 

sinning ihMihs of n character* In 
ItM video meinory 
B Number of claractea to be printed on 
the screen, 

■it) | main program which will 

"in trie subroutine developed above lo 

15 "AV at 3C20. 137 

--^Oflms36"Z'ft"M3E20. 

3 Predict whet the (allowing Motion 

■M node will do; 



fcd d f ei 

7000 

rooa 



CALL 7003 
CALL 7000 



omenta ol me SP are 0000. 



generator 

sysn i 

Flanooni access n. kr 

ipoti 

Wa» i n Newman sdlecl 

Audit log Bi<--*ir>g ft*v i 



*4B eo a paetect i «oage can bo eho/ed 

Or •" • ci 46 Ooihar 





in 




•.in 








lap* 


■ 







MWt* 

ting Ms 

Bnfj 



STEVENf, SOrTW/'- 

the 
taatuti aaYttft 

*e end ■ leads ce*u 
t?o ry . * — i ex* 

cBsaeite lee* 115 00 o*' »m 

*Afl*aafl 



ins-eu n-Uow pa aware & 

■ - 

tots sew 



IUH6 

epo 

i 'en* 

Bo» 

I 



TRSel) ORIGINAL PROGRAMS: 
Bunmets. garnet educational, graphic* 
SO lo* J25 00 LI of L2 ppd In US, no 
COD BASE tot complete Hal Jensen Sol 
tware. 1569 Blossom Park Lakewood. 
in, M 

Atltf r N t URE FOR TRS-60 $14 95 per wJ 
venture or send SASE for flyer 3 edven 
lute* currently available M 8 
Adams. P.O. Bo> 3435. Longwood Fl 

Wt- HAVE AN RS 232 serial Interlace 
ipalable with THSH0 Eap 
i-wwHhaoltwaieamsti P»eo-. 
i 341 IS 90th St Tecoma. WA 

IftaOQ 



UNCLASSIFIED 
ADS 




rns 40/LEVEL II install a Clock Comnii 
Board and spew) up your operation by 

unlike olhet clock moda. thla one 
•ilowi use of your preseni eoflwafe, il 
leta vou change speed while a program 
15 ninning, end it does not require a 
at control switch Speed is changed 
witn the 'OUT" statement Assembled 
cfrcHll card • iverythlng required to* 
east Installation; S24.95. SASE for more 

Am Archbold, 106 Snyder Dr 
Mather AFB. Ca 95655 (916)3623027 



TAKE THE TIM! TO 
WRITE UP THAT ADI 

IT WILL BE READ- GET 

FAST ACTION! 

80 U.S.Journd 
Unclassified Rotas 



SJ.50 ear halt Inch end S7.S0 for 
Mch additional half Inch ear rnierlion. 
Send printed, or typed ad with cor roc t 
•moewt la 10 U.S. Jo—*. P.O. lei 
ni2 t TM«aM,WA. 91407. 



TRADER VICK.. Over 300 quality 
program! on dlak to trade or swap for 
software or hardware. What do you 
hive? Trader Vlck. 3325 Lanoernhire 
Lane. Piano. TX. 75023 1214^96^)533 



TRS«0 USERS IN EUROPE We sell a 
great number ol games, educational and 
scientific software, end a TRS 80 
Resource Boob srJttl programing tips, 
herdwarefsoftware information Send 
alamped envelope tor mote details. 
VORTEXBQ Posttech 401606. 8 Munich, 
iemany 



TRS-60 IK MACHINE LANQUAQE 
MONITOR with complete source listing 
Disk version It 7 . tape version |L2 only) 
$12 Modify Remini to run on Disk Basic. 
program Hating (5 program on tape $7 ■ 
Catalog 31 wille to K Johnson. 15540 
Vanowen St • 121. Van Nuys, Ca 91406 
(inquiries invited J 



OWNERS or USERS ol TRS 80 L2 or DOS 
systems interested in doing 
community /humanitarian service drop a 
postcard with name, address & type 
equip to Mike Freeman, 046 Alder St 
TaMitia.WA9B4Q5. 



RAOIO SHACK TRS 80 ft and Peripherals 
wanted Any quantity, end condition, 
immediate caah available Some used 
units available Write with description 
and condition and phone number tor 
Immediate quote. Dec PDP6E * M 
Modules, RK05. RK6E, Etc, buy, sail, 
trade, repair, custom interface. Jim Sim 
pson, Bo« 632 W Caldwell, N J 07006 
telephone evening* only f20i£423110 
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ANNOUNCES 
THE 



MINI-8100 



F | FpTDnMirs AN s " 100 BUS 

tutiKumw ADAPTER/MO THERBOARD 

FOR THE TRS-80* 



MINI- 



MINI-PRICE! 





but MAXI-PERFORMANCE! 



HUH Klectromcs KlUO is the established 
leader in S-IOO/TRS-KO interfaces, running re 
hahlv since November IV7H and giving you 
the moM features for your dollar But some 
folks don't need all the MIX) s versatility or 
want something more compact. 



So wc creulcd the MIM-MOO. I he MINI- 
MOO ha* the same proven reliable S-HW Bus 
interface circuitry as it's big brother coupled 
with a 4 slot shielded motherboard. It COO" 
necis to the TRS-W) or to the expansion micr 



face and opens up the vast world of S-IUU Bus 
product* to the TRS-80 owner. 

For lho*c of vou who already own an S-IOO 
mainframe or motherboard, the MINI-MOO 
iii.iv be purchased without the built-in 
motherboard. (MINI-MOOS) Jusi plug ll In 
and go' 

The MINI-MOO has the same high quality as 
all HUH fcJcclronics products — easy assem- 
bly hilly socketed, soldei mask and silk 
screen component legend, comprehensive 
manual and design excellence that sneaks for 
ttidl 



MINI-8100 KIT 
MINI-8100 ASM 
MINI-8I00S KIT 
M1N1-8100S ASM 



PRICES 

includes all puns ami one S-l*Mi connector 
nsscmbled and tested, includes four S-IOO connectors 
S-IOO sized board, plugs into mainframe 
same us above, but assembled and tested 



-SII5 
$135 
IM 

-$125 




ELECTRONICS 



1429 Maple St. 

San Mateo, CA 

94402 

(415) 573-7359 



ORDKRING INFO: I he MINI-8100 is availa- 
ble from leading computer dealers oi fautorv 
dircu Please include $4 for shipping and 
handling. <. A residents include ft 1 * sales lax, 
We accept VISA or MaslercrwrBe or we can 
•trip COD 

USADOMIMU PRIf IS ONLY 



T RS-WI is a Radio Shack* product. 



DEALER INQUIRIES INVITED 



The 



8100 




ELECTRONICS 



An S-100 Bus Adapter/Motherboard 

for the TRS-80 

plus a whole lot more!!! 




• S-100 BUS INTERFACE 

• 6 SLOT MOTHERBOARD 



Ttat •1UD allow* ■ Ra4ta Shack TR2M0 MfMr m b» 
uwri^Uth.1 | 1 iM-Mli 

— 1 aal i I no 

•Mil, add nan «— — > **■•* da. .y|,i i RKMI 
hoard*, printer mlarfiaa. mulU-pwpoaa tU board*, Al 
da-rawtantroJIar*. *ud * atajta hoal of atha* raruvi umph 
arata 

TW MOO aaan»»™ ■**■*-» «^ a at In rtii aril afcarti 
■iKtuoa* aw unqw and ffu>4» i j iiii wtefc bm dh» 
hiMlh la uW plan* 

TW 8100 ha* •upo.wt crmMtrj ami aarfcate far **gti( 

TyfyMrTWMOfcyMMt i nhH Mo— «ajf NyySW 
RAM 



• SERIAL RS232 20ma I/O 

• PARALLEL INPUT AND OUTPUT 

• SPACE FOR 16K DYNAMIC RAM 

• CAN USE LEFT OVER 4K CHIPS 

• LOW COST- PRICES START AT J1B5* 

• AVAILABLE IMMEDIATELY 



If you aawrhaaaal an cipanaion in*mor> •ufiwTR.s «• 
ra» oaaari W taft alt* ««h* 4K RAM rtuaa aad noarmva la 
■mi taaaa? VaM. taa? cnai a* taa RAM aa laaai irMnf 
TWi raja*. )«m«> aataar th - ]«K dupa mm) ad- 
driai (hem •nr*(wfi rou lifca 

Th* Him) ha. ■ (ull RS23Z"A) ma amal intarfa** who t 
wtadc RS332 MdAin curranl l«a*> lafcarfaaa. 
mi* Inns DC t 




DM 

Th» WOO alau Km mi H hit parallel input pari and 
an 6 all aarallal output port Hath ar* Latchad. ha** both 



PRICES START AS LOW AS $185* (S-100 BUS interface ONLY) 



hUH| 

S ELECTRONICS 



1429 Maple St. 

San Mateo, CA 

94402 

(415) 573-7359 



CALL OR WRITE FOP COMPLETE PRICING 
INFORMATION AND MORE DETAILS 

THE 8100 IS AVAILABLE FROM LEADING 
COMPUTER DEALERS OH FACTORY DIRECT 

DEALER INQUIRIES INVITED 

•f.«tr* S-100 oanrwcicn RAM aupport 
lOaraatryopaonai 
U6A 0OMBTC PRCC ONLY 




lifeboat 



Thft ilK l«m< ■ ptooraw an- . 

th« cancafM ol m old Alfrrt IWI u N j-X i 

movie Thnrs vm a law aijdlllona. 
hoaavar (life* tT» captain ha«m« the no 
ttoa o» 'doaao tr <*• paaaaaoaaa* la 
aati tna gama mora •nlaraaimo, Vou an 
h—lr ■», at tna matey of laic, but you on 
rutva a imall. vary tmail daoiaa of con< 
trof era* your daaurr, Go aMad lata a 
ndao» t»a>Tfraniav 

Ktri* jarm* 
Affyn. WmtMnglan 

TO REM * (C)1979 80-NW PUBLISHING CO • 

KM ■ CREATED FOR 80-US BY KARL JAHNS , ALLYN, WA ■ 

30 PRINTtPRINT 

«0 CLS:PRJNT:PRINT:i:INTTAB<27); "LIFEBOAT" 

50 PRINT: PRINT 

60 PRINT: INPUT "WHO IS THE CAPTAIN" ;A$ 

70 CLS:PPINT:PRINT:P<UNT"YOUR SHIP HAS BEEN WRECKED- YOU ARE AMI 

80 PRINT'SURVIVORS. YOU HAVE 60 SMALL PORTIONS OF WATER- PORTIOH 

90 PRINT"PER PERSON PER DAY) YOU ARE ABOUT TEN DAYS FROM LAND. THERE 

100 PRINT-ARE THREE SURVIVORS WHO ARE SICK SO PAR. WEATHER IS UNCERTAIN 

110 PRINT"AS IS THE POSSIBILITY OF CHANCE RESCUE:.* „«,--*• 

120 PRINT: PRINT" YOU MUST DECIDE IF SOME WILL HAVE TO BE KILLED TO I 

U0 PRINT"THE CHANCES FOR THE REST SURVIVING. (YOU HAVE THE REVOLVER] 

M0 PRINT - YOU DO RISK TRIAL FOR MURDER IF YOUR DECISION WAS HASTY, BUT 

150 PRINT 11 YOU COULD KLL DIE OF THIRST OR EXPOSURE IF YOU MISJUDGE - 

160 PRINT-YOUR CHANf BS. " :GOSUB1500 _«„,.«. „ M I 

170 RINT:PRINT:i-RINT-YOU HAVE A DIARY IN WHICH YOU MAKE ENTRIE , OH% 

180 I] IT*TBH HAPPENTNGS OF THAT DAY. (OF COURSE, HITCHCOCK WILL MAKE A 
190 PRINT"MOVIE OF THESE ENTRIES IF THE BOAT IS EVER FOUND.) AJ 

PRIW, t IS M/DE YOU MUST MAKE THE DECISION OF HOW MANY TO SHOOT. 

! :PRINT"SICK PEOPLE NEED 2 RATIONS OF WATER PER DAY." 

GOSUB1500 

\S:PRINT:PRINT:' RINT:R-10iK»0 :L=0 
24 R»10tL-0sK=0 
2S0 F«60tN=lO:S*3:BM) 
260 T-1iI«=0:P»0:W=0 

270 CLS: PRINT: PRINT" ~ ~~~ Z~~ 

280 PRINT-CAPT. ";A$r"'S LOG: * DAY ";T; ■ :PRINT 

(THENN=N-K::i=S-K 
300 IPK>0THENW*M:P«»T 
310 nS'QTHENS-0 
320 F-F-N-S 

J30 IFT>«RGOSUBU50:<;OTO520 
340 RANDOM: X=RND< 13) 

350 IF(X«1) •(S>«1)THENN-N-1 JGOSUB760 
360 IF(X-1) # (S<1)GOSUB1090 
370 IF(X«3)MS>l)GO5UB790tGOTO390 
380 IF(X*3) •(S>=1)THENN=N-1 :GOSUB760 
390 IF(X-2)+(X=4)+(X=10)GOSUBl290 
400 iF((X=2)+(X=10))*(T>2)GOSUBl300 
4 10 IFX*6GOSUB1220:R=R+1 
420 IFX=8GOSUBl260:R=R+2 

4 30 lFl(X-5>+(X-7))*(L-l)GOBUB1370:GOSUB7 30:GOTO450 
440 IF(X-5)*tX*7)THENR-R-1:GOSUB1370:L-1 
IF(XO5>"(X<>7)THENL»0 



450 
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460 IF(X-13)*(T-P-0)GOSUB650:GOTO610 

470 IF(X-13)*(T-POO)GOSUB710 

480 IFX=9GOSUB910 

490 IF(X-11)+(X-12)GOSUB940 

500 IFF<1THBNB40 

510 IFT>-RGOSUB1350 

520 IFS<0THENS«0 

530 IFN<0THENN*0 

540 IFS>NTHENS-N 

550 IP(I-1)MW«l)GOTO1000 

560 PRINT :PRINT"WE HAVE ";F;" UNITS OF WATER LEFT." 

570 PRINT-THERE ARE ";N;" OF US LEFT AND "; 

580 IFS>1PRINTSj" ARE SICK." 

590 IFS<2PRINTS;" IS SICK." 

600 PRINT: PRINT" I ESTIMATE ";R-T;" MORE DAYS TO LAND. " 

610 PRINT:PRINT" --_ --__ .._ • 

620 IFN<1PRINT"P.S. AHHHHHH! THEY ALL DIEDI WELL, THAT'S LIFE.": 

GOTO1120 
630 PRINT" (CAPT."»A$j", HOW MANY ARE YOU GOING TO SHOOT TONIGHT)":: 

INPUTK 
640 T-T+1:GOTO270 

650 PRINT:PRINT"THIS IS MY LAST ENTRY. IN TRYING TO SHOOT MRS. O'BRIAN 
660 PRINT"LAST NIGHT, I HIT THE LIFEBOAT. WE'RE SLOWLY SINKING. 
670 FORX-1TO900:NEXTX 

680 FORY-1TO5:GOSUB690:GOSUB700:NEXTY:N=0: RETURN 

690 PRINTTAB(0+10"Y) j"GLUG I" :PRINT: RETURN 

700 FORX-1TO200:NEXTX: RETURN 

710 PRINT"TODAY WE SAW SMOKE IN THE DISTANCE. IT WAS EITHER A SHIP OR 

720 PRINT'SOME CRAZED INDIANS. "s RETURN 

730 IF N<1 GOTO620 

740 PRINT:PRINT:PRINT"WAIT ... A SHIP ON THE HORIZON. WE'RE SAVED!!" 

750 I-1:RETURN 

760 PRINT"ONE OF OUR SICK PEOPLE DIED. WE THREW THEIR BODY OVERBOARD" 

770 PRINT-TO APPEASE THE SHARKS." 

780 S-S-1 :RETURN 

790 IF N*<R-T)>F THEN820 

800 PRINT-ONE OF THE SICK GOT SO EXCITED AT BEING CLOSE TO RESCUE THAT ■ 

810 PRINT"HE HAD A HEART ATTACK AND DIED... POOR SLOB !": 

S-S-1 :N*N-1 :RETURN 
820 PRINT-TWO SICK PASSENGERS STRANGLED EACH OTHER SO THE REST OF THE 
830 PRINT" PASSENGERS WOULD HAVE A BETTER CHANCE ." :S«S-2:N=-N-2 : RETURN 
84 PRINT-OUR WATER IS ALL GONE. WE CAN ONLY LAST ONE MORE DAY. " 
850 PRINT: INPUT" (PRESS 'ENTER' TO CONTINUE) " ;G$ 

860 IF(R-T)<2GOSUB730:GOTO950 
870 G-RND(R-T) : IFG=1GOSUB730iGOTO950 
880 F0RX-1T025: PRINT" /" ; :NEXTX:PRINT 

890 PRINT"THEY DIDN'T MAKE IT. EVERYONE DIED 1" :PRINT: PRINT 

900 N-0:GOTOl120 

910 PRINT"THERE WAS A RAIN SHOWER TODAY. WE WERE ABLE TO CATCH ENOUGH" 
920 PRINT-WATER FOR ONE MORE DAY." 
930 F-F+N: RETURN 
940 PRINT"ANOTHER MONOTONOUS DAY. HO HUM... NO CHANGE IN SITUATION.": 

RETURN 
950 PRINT:PRINT"GAIA BALL IN THE GOVERNOR'S MANSION TO CELEBRATE YOUR 
960 IFN«1GOSUB1040:GOT01120 

970 PRINT"COURAGEOUS SHEPARDING OF AS MANY OF THE FLOCK AS COULD HAVE 
980 PRINT"BEEN SAVED." 
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1040 PRINT "SURVIVAL. " :FORX=1T01 000 :NEXTX 
SIS PRINr'cS'TATN 00 ™n AG ' SINCE Y0U,RE THE 0NL * SURVIVOR AND THE" 

!sl E™ ™ » - -- ™- ajw= ,Y0UR WIFE ALS0 " 

l?" pSot"™2v ON a»S S ^2S a J!S blb toda *-°«e "»* got sunstroke, went 
imS s^reS ° US mTH ST0MES 0F HER L0VE B0AT TRIP -" 

1120 FORX=1TO1000:NEXTX 

I liS ^"^"NTTABOJj-YOUR SCORE FOR THIS TRIP WAS ".-N'T-" POINTS » 

'Z^^^^^fSJisj^ voyage - °™- »-™ 

SSsS s~™ fJBivsa 
is SkmsE^^ HE TRIED 

l?7n o^™.""* JUST BHUS "ED THE EDGE OF A HURRICANE. IT WILL TAKE" 

"US S^SSuS* AN ° THER HOT ' "^ DAY " N0 «« S?^Sco..-,«tuw 

Win n^Zl° NE P0 ° R STIFF HAD HIS HAND DANGLING IN THE WATER A 
320 PRINT-SHARK BIT IT OFF AND HE BLED TO DEATH " -N-H- 1 • RFTl'lRN 

i"s ss!r:Spj5? mtw worse ' ^her°pSn-go? Sw^sSk.. 

1360 1=1: RETURN 

1370 PRINT-THE WINDS WERE FAVORABLE TODAY AND SPIRITS WERF HTCH " 

1380 s IFS>0PRINT"ONE OF THE SICK PEOPLE MADE A REM^kIblI^COV^RV. » : 

140S sssasssKsjT """ sooner than 

1-0 sssK;ss 9 ^xS?sss 9 g A ouick - not guil - verdict -- 

1430 R=RND(F-M) 

\t\n ™?IZZVZI Y0V llAVE BEEN A Q UI TTED BASED UPON YOUR SUPERIOR" 
1450 IFR=1 PRINT" LEADERSHIP AND BRAVERY. ■ :GOT0950 

Ann nn^ NT ;! Y ° U ,iAVE BEEN F0UND GUILTY OF MURDER. (OTHER SURVIVORS 

ARGHHHHHM" 
1490 N=N-1:B=1:GOTO1120 

1500 rI?UR^ :PRINT:INPUTM (PRESS " ENTER - T0 CONTINUE) ";B$: 

* 

2ft 
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MWCTICAL MICIOCOMPUTW PtOORAMING: THE Z80 ■ 00 *« w «'- r " °*™*" 



WJ Mmift 



Wj rVe/ler 

NonrwnT»ehnDto0v Boots tar* 
tPttea t29 00i 



Practical Microcomputing Program 
mmQ n ■ conimuanor> ol a i»i« at 
oooka by the tamo nam* (prevtou* 
volumea cover ir*e 80B0 and ina ftflOOl || 
(• intended to ba a Wit to* the beglnnii> 
programmer on the ZBO ayatem and to 
deed wai thai euPfsci era* m U chap 
tan and 4 appandi oaa itf i paoaa ioU4 

It he a major difficulty with the boo* 
thai tha author choaa to disregard tha 
standard ZBO aeeemoly languaga and in 
aiaad laach an e«tenauw of tha popular 



ThW mafcee tha program* at tha boor. * 
compatible »»lh iha TRSBO Effttor 



Mr Wetter pomta out that ha 'aala thai 
ZNog rnada a mistake m turning a naw aai 
ol mnemonic* tor tha ZOO instead ot 
maintaining full compatibility with tha 
8080 For true reason *• are lo team 
BOM ranamonrca since a*> sr*t than have 
accaee to B080 pr ogra m * Thta la ad- 
mirable, but doesn't take Into account 
tha problem* rrltn translating ZBO 
programs to the new system 

To solve the problem ol incom 
pMKMIIhr he prondaa a complete Editor 
Aaeembier and Debugging monitor 
Uallng m the bach o« the book srtocn la 
compatible wrth the book a mnanions t* 



Funhar. copies o* trie Editor- 
end Oeougger are available on 
tape lor I re* mth purchase of the book 

What good la all this to Iha TRSBO 
uaer. you as>? well realistically, vary Ml 
tie in the Itrst place a TRSBO uaar would 
nave to rnodrty the Editor Aeeombter to 
uee it on h* raacMne, ban to do mat ha 
would ernaedy nae* to bo a competent 
mechina language programme' 
Specifically the IfO tor the editor 
assembler assumes paper punch tape 
arm nothing In the lirat t2K of memory 
Thrs is obvtouery «« me TRSBO 

So how about uawtgmebookwirh ma 
TRSB© Editor Aseemcwef well, the 
mnarnoru ca an> not the tam e TheTfaBsV 
Editor Aaaembier uses ZHog mnemonic* 
white he uses an enpanded 8080 set 
Someone who la trying to learn ZBO 
Diagramming would have a hart lime 
trying to kwap the 



^ <*y —ad me program 
rrnng m gnaal detail In sample pr ogr a m*, 
most slap* have eMpianationa to show 
what II Is doing a* part o» the program 

In nicely shows ott the capabilities ol 
the 2tt) a* eotapenM to tha 8080 in many 
Ptooea. by potrrtmg out apecmc thing* 
that rha ZK can do better For maiance 
104 goea a Mating tor a 
earl that ueee the ZBO's moaa 
plus dlapiecement addressing 
capability to shorten the program com 
oared to Ihe 8080 

Practical M.crocomputer 
•"tog ra an ai m — il leal on 



kltcrocompuler Program 



Runrung iha prograwis on the MACSO 
aatemoia' would alao gat to ba • 
problem since the extension of the ZBO 
code isn't lecognUed by Ihi* assemble' 
So why bother «iin ihe booh at all? Well 



In m* fust place Mr ***** ha* put 
ah* ol food assembly language) 
programming ,nto the book More fcnpor 



onry by 

me lad mat Ha aaaambiar w«r* not run a* 
la on the TRSBO Someone who <* trying 
lo team assembly language programing 
could use the book to learn how lo do 11, 
but then a second book would ba needed 
to us* the Editor Aaaambiar cun*te*y 
'• on the rR3*D 
1*3*0 u eera win hnd vViasam 
Harden i booh on the ZBO more directly 
applicable to the software they uaa 
However. Mr Welter s booh can heve a 
uaelui piece on your shell aa a guide to 
tdvvnoed tochmques it you are snltmg to 
n i na i asa to normal ZBO cod* AND pay 
mapncelofmeboc«« 



TRS-80 

BUSINESS SOFTWARE 



OSBORNE & ASSOCIATES 
ADAPTATIONS 

Complete Business System 

• ACCOUNTS PAYABLE $7i- 

• ACCOUNTS RECEIVABLE PaV 

• GENERAL LEDGER $75 .' 

A SMALL BUSINESS SYSTEM CAN MAKE 
A BIG DIFFERENCE 

AaaJ 



PAYSOFT PAYROLL SYSTEM 

•FIELD PROVEN Ss—ial J iBeiiittaaUS. 

• SIMPLIFIED OPERATOR INTERFACE 
No training required 

Fait minimal *v»tam operation time 

• AUTOMATED REPORTS 
Check isr* i tar' complete par* tub 
Emptoyee summery cp m pa n , surrevw. 
Check reenter 

Federal deposit record 

Quarterly A annual I«u*mI form* (optional) 

• EDITING FEATURES 

• BONUS PAY ENTRY FEATURE 

•END USER DOCUMENTATION End-user suppon 

•PAYSOFT DISKETTE AND MANUAL S126" 
ANNUAL RFVISION SUBSCRIPTION OPTIONAL 



BUSIN 
UW 



IESS 



PR00UCTS 



>C*lirai"t« rtnd.Mli ■ ilrt 

a i*uw u> 



A DIVISION Of THE READY CORPORATION 
PX) Box 27Q6 • Livarmora. CA 94560 • (416) 443-4876 



BAC/VISAT*C 
accepted 



Tn van it • •eetiaisd 



TRS-80 OWNERS AND 
USERS 



TRS-80 OWNERS AND USFRS 



LET'S BE SERIOUS ABOUT WHAT 
AND WHY YOU READ! 



M ' , 



Do you want lo read endless aitlclea cowing every 
Fpulerl Want to wade imougn iri.enifiing 
i fiioducift you can't u«> 

How muctt ol ma*t Oliver Mlcrocompuler ftl 
•ppllBl lo youi equlumant? 



THE 80 U.S. JOURNAL 

wilten lor YOU and YOUR machine, cover lo emu, 
including edvartlaemenla I! a the COMPLETE TRS«0 
PuMlcaltim (Look through Ihia laaua and te« >or 
yWreWfl) 

We cover GAMES. BUSINESS. MACHINE LANGUAGE. 
FINANCIAL EDUCATIONAL SCIENTIRC and prlnl 
lull lira, aaiy 10 read BASIC linings (How alaa 
could we have gone fully International In |u" 

V«KTJ 

We alio QUrrv a urteli ift.ii -vquiana) »iooh of 
willwaie the JOURNAL plonaaiao 'iwdt 

the Heidi m Animated Oraphica with SOUND 

Wny an wa uung all thin apace and lime to tell 
you Ihle? 

BeOauae for you. only the vary beal ia good aooughl 



YOU'VE READ THEM ALL- 
NOW GET THE BEST! 

The 80- US Journal 

A PUBLICATION FOR TRS-80 

USERS - COVERS ALL TRS-80 

CAPABILITY! 

206/759-9642 

Malt*- thaiqaiViM acc*plK) 



FO !*«, mi 



U.S. SUttOriPTION OROfl ron* 



VI 


CANADA 


t'fllNPI »■•* 


uooh.mi 


uiOHy-** 

t«tnunr>» 


i)iao/3iMii 


ewonn.BXB 



crr*,iTA»i nr 



80 U.S. SOFTWARE 

p/?cs£wrs 
ANIMATION PIUS SOUND) 

• rtewi AHowoin m» •nn coueat tm tww. nm aanmiMt •.■!*«• 

■1'iimnwtm - w l wm mii < SOUND ht L— C— tatophfon. lw» 
II, '« II4.H 

I *rwi t »TTT«m m aouNDi c — .,. p. •■ «• ., «, ., »■ ,!,■■,, .» 

•af MbNtW rtUi 1M CI mU-MM •«•»§- CtHlyiH 

i *>• "tATTl r OP IWt- In ant IM. lata* II p.t^j. in in M 



I 'Din 



1 NIWIBNAMV tOOt a-M. SOUND Tltfa wM« I. -M-. .Hill l—n. 

«M«WN»^nitiMMIMlwM)HlliMik)kMCI«MN«l«t<mi 

• I'M 

ofAtin'NOurerfSiNyirro 

I Ufi CUBiai A-.*,.. In Owlatapftafao* apaclal' Qln. Km w.u.ior. 
M "bwum NiMnnv" • * "um*a-»a MocU Ul p*« Mmwitt «b eimrf 
■nr*<aM tttwvhaa- la ananfla ihvbNMki an rBu>KTMn InWIl 1W 

MM 

1 WtCIAlt Dm artpMW ANDAOin NtU *hci. fr», la- 1' Tfta 0..I IflS-ftO 
■AVIMf^MiipM onii H 00 

> IDtTM A ampw BmM tail C*t<- vn **> conpOcalad »utx«nma*Ma 
t*w «■•* w Imm Ob t NnaattM Waa far emmm** wee*** DO* aMl ... _. 

i nama of INa p-offam 
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STOCK 
PROGRAM 

The lirst ot a three pari series 



(DOS and printer requked) 



Fred Quth 4 John Knoderer 
St Low* Mo 



The co-euthor of theee programs. 
John Knoderer, and Mt COMPUTER 
VAN, trevel full-time trom TAS-eO owner 
lo T RS-eO o«n»f In 1Mb Mlasoun-KanaaB 
srei helping with custom software 
nndi and other programing services 
On* ol 1Mb many addresses hi P.O. Bo* 
22108. SI, Louis, Mo. 631 16. 



This It Iht first ol ■ Ml ol Ihree stock 
programs, end It ■ program lo Inventory 
•nd evaluate Inveatmanti In stocks. Up- 
coming Issues will contain a program to 
determine tatae ot return on stocks and 
■ program to determine net amount* 
received and luu to bo paid when 
wiling. 



What Blocks to keep? What to m»7 
Has a stock moved consistently with the 
market? What are Iho relallve yields and 
It sold, what Is the net alter ta*"> The** 
questions add up to a lot ol wort when 
ualng a pencil and paper, and lha longer 
me Hal ol stocks, the more difficult It Is 
But the computer has lilted a burden 
Now you can see more elee/ly, and you 
can move when the lime la right I 

The filename of the first program is 
STOCK/PRO, meaning slock program It 
keeps a current inventory of any set Ol 
stocke. The e«ampia with this article 
merely shows the typa of printout 
Although basically designed lo' Ihe Cen- 
tronics printer al 132 charac tarsal I ne, It 
can be used with other printers which 
will take 15 Inch paper (or have sufficien- 
tly variable pilch). 

Note that e*ch stock Is numbered 
This Is done automatically by the 
progrem. and one must use tbeaa num- 
bers when changing or delellng a hating. 



The program la designed for disk and 
printer, and after entering Basic, be euro 
lo onler 15 for Ihe numbr ol tiles 
question. 

AHer the dale is entered, a table of op- 
lions appears Whet do you went lo do7 

l-Add a slock to ihe tile 

2-Change a listing 

3-Change all market values 

4-Prlnt out a list of all slocks on hand 

5- Delete a stock 

6-Oult the program 

CHOOSE? 

To begin your own Block tile, type In 1 . 
edd a stock lo your tile. 
(Editor's note: We didnt find this to be 
entirely true The program opens a data 
ttlm called STOCKIflL 1/ there it no in- 
formation at all. the program gives an 
error. To get around thin, enter the tint 
stock uvng option 7. changing the null 
value* tor the stock to those youwishto 



antor. After the first stock is entered you 
may use alt the options as shown ) 

The atock name may be up lo nine 
characters. Including the spaces and 

periods. 

When adding a stock, you make just 

lour entries, the program o*tends the 
unit coals into total. Ihe market price in 
to total market, totals costs end markets 
end prints oul the individual gains and 
losses as well aa a recap 

Option 3 allows you to enter update 
market Information from your 
newspaper. This can be done as olten as 
you wish to update You can then com 
pare new Information with the pr*rt°»» 
period and make decisions aa to which 

way to move- 
In the next installment, we will present 
STOCK YIELD, which will allow you to 
see a quick analysis showing all the 
returns on your various holdings, baaed 
polh on cost and current market price*) 



STOCK VALUES AS OF 04/04/79 



[T..* UWT..$ TOTAI. 



"-""T7*"ir~I77 rt ni c io nni.?* S 0.00 



C H ENTR 

LIGGET 200 

MOR NORW 800 

P G & E 10°0 

WAR LAMB 2500 

AM BRANDS 250 

EXXON 300 

INT HARV 175 

NABISCO 250 

10 TEXACO 500 

11 ZENITH 350 



1 

2 

3 

4 

S 

6 

7 

8 

9 



$210. 


67 


¥ 


31. 


64 


* 


!• 


30 


$ 


14 


30 


% 


1 


37 


1 


28 


90 


1 


53 


85 


J 


32 


.50 


1 


20 


.75 


$ 


22 


.50 


J 


49 


.75 



$79,001. 
$ 6,328. 
$ 1,040. 
$14,300. 
$ 3,425. 
* 7,225. 
$16,155 
$ 5,687 
$ 5,187 
$11,250 
$17,412 



25 $2 



00 
.00 
.00 
.00 
.00 
.00 
.50 
.50 
.00 
• 50 



| 
I 

s 
I 

$ 

s 

$ 

% 

5 



10.67 

36.37 

28.87 

22.12 

22.12 

48.75 

49.25 

37.50 

23.50 

27.75 

25.78 



s 

% 
I 

5 
$ 
J 
s 
I 
$ 

s 
I 



79,001. 

7,274. 
23,096. 
22,120. 
55,300. 
12,187. 
14,775, 

6,562 

5,875 
13,875 

9,023 



25 $ 0.00 

00 $ 946.00 

00 $22,056.00 

00 $ 7,820.00 

00 $51,875.00 

50 $ 4,962.50 

00 $-1,380.00 

,50 * 875.00 

00 $ 687.50 

.00 $ 2,625.00 

.00 $-8,389.50 



TOTAL FIGURES 



$167,011.75 



$249,089.25 $82,077.50 



TOTAL GAINS 
TOTAL LOSSES 



$91,847.00 
$9,769.50 



Figure 1 






31 



ar>U.S JOURNAL JULYfAUQ 1979 



60 ™SS?Si^ ?=*™<1ORM>12THEN50ELSEPOKE16454,M 
70 INPUT-YEAR (YY) - , Y:IPY>1 900THENY=Y- 1 900 °« J ' U 

80 IFY<0ORY>255THEN70ELSEPOKE 1 64 52 , Y 

^ c ^ R999 =defdbla-h,k-z:open-r",i,"stcx:k/fil" 

110 input"what do you want to do? 
1-add a stock to the stock file 
2-change a listing on the stock file 

3-CHANGE THE MARKET VALUES ON ALL THE STOCKS 
4-PRINT OUT A LIST OF ALL STOCKS ON HAND 
5 -DELETE A STOCK 
6-QUIT THE PROGRAM 

CHOOSE"; A 

120 ONAGOT0130,290,300,340,440,460:GOT0100 
130 GET1,L0F(1) :QC=-1 

140 ^t??lofukT^^ 

150 gosub470:ifn1$ostring${9,0)then140 

160 n$="":m=-9:u=-9:k=-9:i=lof(1) 

170 ifn?<>""thenprintn$, 

180 input"name of stock" ;n$: ifn*=""then180 

190 ifm>=0thenprintm, 

200 input"number of shares purchased" ;m: ifm<0orm>30000then200 

2 7 ifu>= othenprintusing" i # # . # • " ; u , 

220 INPUT-UNIT COST OF STOCK" ;U: IFU<0ORU>300THEN220 
230 IFK>=0THENPRINTUSING"###.##" ? K, 

240 INPUT-CURRENT MARKET PRICE OF THE STOCK" ;K: IFK<0ORK>300 
THEN 240 

250 N$=LEFT*(N$,9);CLS:PRINT"STOCK NAME" ,N* :PRINTM; "SHARES 

OWNED" :PRINTUSING"UNIT PRICE $$##.##" ;U:PRINTUSING"MARKET 

PRICE $$##.##";K 
260 A$="": INPUT" DO YOU WANT TO MAKE ANY CORRECTIONS IN THE 

ABOVE";A$:A$=LEFT$(A$,1):IFA$="Y"THENPRINT"AS THE CURRENT 

VALUES ARE DISPLAYED, MAKE THE CORRECTION, IF YOU WANT TO 

KEEP THE VALUE, PRESS ENTER" : GOTO! 70 
270 IFA$O m N"THEN26G 
280 LSETN1$=N$:LSETM1$=MKI$(M) :LSETU1 J=MKI$ (U*100) i 

LSETK1 $=MKI$ (K* 1 00) :PUT1 , I :GOT01 00 
290 INPUT"WH1CH STOCK DO YOU WANT TO CHANGE THE LISTING OF 

I#";J:I=INT((J-1J/17)+1:QC=J+16-I*17:GET1,I:GOSUB470: 
-.«« N * =N 1*:M=CVItMl$) :U=CVI(U1$)/100zK=CVI(Kl$)/100:GOTO250 
300 CLS: PRINT-AS THE STOCKS ARE DISPLAYED, ENTER THE CURRENT 

MARKET PRICE":FORI=lTOLOF(1) :GET1 , I:FORJ=0TO16 :QC=J : 

CIOSUB470:IFN1$=-STRING$(9,0)ORN1$=STRING${9,32)THEN330 
310 K=CVI(K1$)/100:PRINTN1$;" #" |CVI <M1$) j "UNITS" ;CVI <U1 $)/100; " 

OLD MARKETS" ; K; :INPUT"NEW MARKET";K 
320 LSETK1*=MKI$(K*100) 
330 NEXTJ:PUT1 # I:NEXTI:GOT0100 
340 LPRINT"STOCK VALUES AS OF ";LEFT$ <TIME$,8) :LPRINT" " 

350 LPRINT-ST STOCK.... NO. OF UNIT..* UNIT..* 

TOTAL - 

360 LPRINT"#« NAME SHARES ... COST TOTAL COST .MARKET .... 

.MARKET GAIN//LOSS":LPRINTSTRING$ (68,45) 
370 TL=0:TG=0:GL-0:TC=0:TM=0:FORI=1TOLOF(1):GET1,I:FORJ=OT016: 
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380 
390 

400 

410 



420 

430 
440 



450 
460 
470 



QC=J:GOSUB470:IFNl$=STRINGj(9 # 0)ORNl$=STRING${9 f 32)THEN410 
M=CVI(M1$) :U=CVI(U1$)/100:K=CVI(K1$)/100 

LPRINTUSING M ## % % *«#!« $*##-## $»#,*#*. M $#M.M 

$###,###.## $M,##t.#r;I*l7+J-16,Nl$,M,U,M*U,K,M*K f M*(K-U) 
E$=STRING$ (43,32) :TC=TC+M*U:TM=TM+M*K:GL=GL+M* (K-U) : 
IFK>LTTHENTG=TG+M* (K-U)ELSETL=TL+M* (U-K) 
NEXTJ,I:LPRINTSTRING$(68,45) :LPRINTUSXNG"TOTAL FIGURES 

$$M#M. •«#.*# $$######. ###.I#">TC,TM;: 

LPRINTUSING" $$##,###.##" ;GL:LPRINT" " :LPRINTUSINGE$+ 
" TOTAL GAINS$$###,####.#r ;TG:LPRINTUSINGE$+ M TOTAL 

LQSSESSMM #####.•#" ?TL 
F0RI=1T012:LPRINT" * :NEXT:GOTO100 

INPUT M WHICH STOCK DO VOU WANT TO DELETE THE LISTING OF M"; 
J:I=INT((J-1)/17)+1:QC=J+16-I*17:GET1,I:GOSUB470:PRIHT"DO 

YOU WANT TO DELETE " ;N1 $, :INPUTA$ : A$=LEFT$ (A* , 1 ) : IFA$= Y 
THENLSETN1$=STRING$(9,32):PUT1,I:PRINT"STOCK DELETED": 

GOTO 100 

PRINT"STOCK NOT DELETED" :G0T01 00 

CLOSE :PRINT"GOOD MORNING 1 " :END 

FIELD! f QC*15ASAl$,9ASNl$,2ASMl$,2ASUl$,2ASKl$: RETURN 

NOTES 
0=Zero and O=0h 
Do not use line feed (down 
arrow) in any lines except 



in line 110. 



TRS-80 m Mods 

1 UpperfLower Case 

installed with twitch between "-liDberiah' 
and standard Level II With software (or 
Level II to turn -|lbbertsh" into properly 
displayed data 

2 Level VII 

metalled in same machine switch selected 

aCtocfcRate 

switch selected 1 77MMZ (standard! or 266 

MHZ ttastl cut your processing time by 

ID 



COMPUTER 
SYSTEMS 



CENTER 

77b', W.illoDthillHivd 
Ctanmont. CA 91 M I 



714/621-5059 



TRS-80 tm Components 



4 Serial Interlace 

installed m keyboard With software 
dnver lor Level ll 

6 18 K RAM 
installed a tested 

6 16KRAM 

chips only (you install) 

7 Floppy Disc 

Partec FEM00 with caOto. enckmire ft 
power supply We will leal on your 
cfuponsion interface 



B Integral Dala Primer 
[iiessurp toeo plan en. upperflower 
programmable character slie, 50 cp.t 
contlnuoua impact printar. 

9 Centronics Up- 1 

ae nam B but using stlverpd papr-r isee In 
RS catalog). 

loirsftWTv 

modified for TRS-fO. Switch able as TV or 
Mdao monitor . Can be used with B&W camera, 



Package unite property. We are not 

responsible lor shipping damage 




to 



TRSBO System L218K 
Complete • 1849 00 



Price You send 
40.00 keyboard 
29O0 keyboard 
2900 keyboard 

4900 WWianl 
ngooke/baard ormu Imt 
9900 rvjthing 
38900 rnrp ophonal 
849.00 «p optional 
44000 exp. optional 
1 49.00 nothlnq 
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PhilPtlgtim 



SYSTEM/COMMAND 



SOFTWARE LOWER CASE 



SOFTWARE LOWER CASE (cake to be 
nadand eaten too!) 

Many TRS80 users nave printers 
capable of printing lower case letters 
but, for one reason or other, have 
decided not to make the hardware tower 
case modification. This can make screen 
editing of printable lex! difficult when 
that last contains tower case letters, 
because all loners ■ upper and lower 
alike are displayed as upper case. But It 
la possible, through software alone, to 
have for at least simulate) lower case on 
(ha display, while printing full upper and 
lower case on the printer 

Let 'a assume that every latter we type 
on the keyboard without shifting be In- 
terpreted aa "tower case" These letters 



are displayed as regular capital letters 
on the screen. Now, when we want 'UP- 
PER CASE we hold down the shift key 
and type a tatter Such a letter should 
than be given a special designation on 
the screen Hera, we will precede It with 
a small graphics block, to ahow that It la 
"UPPER CASE' The printer roullne, 
when celled by LPRINT or LUST then, 
will print regular (unahltted) letters as 
true tower case and shifted letters as 
upper case. This means, of course, that 
BASIC keywords will come out printed 
aa Ifthen-eise Instead of IF THEN ELSE 
during a LLIST, but It wont affect the 
behavioral the program one bit. 
The assembly Haling shown In Figure 1 
accomplishes these leats with three 
modules 1) A start block (START) to link 



the other two modules into the display 
and Una printer calling sequences. 7) A 
display dnvet (SDSPLY), which precedes 
every shifted letter on the screen by a 
graphic block and erases the block In the 
avent ol a backspace, and 3) A printer 
driver (SPRINT), which reverses the shift 
ot all letters going to the printer 

To use this program, enter the source 
code shown Into the edl tor; assembler, 
assemble II, and make a SYSTEM tape 
Than Initialize LEVEL II BASIC (ORG 
7FABH assumes 1BK) and sat memory 
size to 32683 Load the SYSTEM tape, 
type the 'ENTER to execute the start 
block, and BASIC will be ready with Its 
new lower case personality • all without 
even having to plug In a soldering Ironl aj 



7PAB 




ootoo 




OKI 


t pa an 


iNPI St - 12*11 


7FAB 


2A1E40 


00110 


START 


LD 


III., (401EI1) 


ILIIIK 1H SIMPLY 


TFAE 


22D37F 


00 wo 




LD 


ILDflPLVtll ,BL 


1 


7pB1 


SIC*?? 


oono 




LP 


tlL,SD5PLY 




n« 


221B40 


00140 




LD 


1401EM) ,HL 


I 


7FB7 


."A2640 


00 ISO 




LD 


ML, I4026HI 


iU»s IB sprirt 


7FBA 


2JF27F 


Mlifl 




to 


fLPRIHTtll ,m. 


( 


t HI 


:iK9?r 


00170 




LD 


IIL, SPRINT 


i 


7rco 


muc 


00 ISO 




LP 


i4C." 


i 


7ro 


CJ1S1A 


00190 




JP 


1A19H 


(RETURN TO BASIC 


7rca 


pi 


00300 


SDSPLY 


PUSH 


AP 


iNUUT SAVE FLAGS 


7FC7 


79 


00210 




lo 


A.C 


I GET CHAR 111 A 


7rc* 


C0P47F 


00220 




CALL 


SHIFT 


1A LOWS CASE LTB7 


7fCB 


J805 


0O23O 




n 


C.BEGD 


; HO, PEGU LAP DISPLAY 


7FCO 


IBS J 


MM ■ 




LP 


A, HO 


ifaCT SBIFT GRAPHIC 


7rcr 


CD3300 


00250 




CALL 


00J1II 


(DISPLAY IT 


7roj 


n 


00260 


noo 


POP 


AP 


I RESTORE FLAT.S 


7rpj 


C5 


00270 




riisn 


DC 


(SAVE CHAR 


7fm 


cuuooo 


002BO 


LDSPLY 


CALL 


l-l 


I DISPLAY CHARACTER 


7roi 


ct 


00290 




POP 


BG 


ICET CHARA.TER BACK 


7 roe 


4r 


H I0Q 




LD 


C.A 


I 


7ro» 


PEOS 


0DJ1O 




CP 


1 


iWAS IT BACKSPACE? 


7FP* 


CO 


00 J 20 




BJR 


NX 


I MO, RETURN 


7 roc 


2A2040 


002)0 




Lb 


HL. (4020)11 


|OBT CURSOR POSITION 


7ror 


as 


00240 




DEra 


2 Bit 


i BACKSPACE 


mo 


7B 


00330 




LD 


A,<HD 


I PEW AT PREV CHAR 


7PB1 


pes 2 


00160 




CP 


UO 


IIS IT SHIFT GRAPHIC? 


7ras 


CO 


00370 




RET 


NX 


: HO, RETURN 


7F84 


mi 


0O1B0 




ld 


M 


I SKIRT SACEJP ACAIH 


7FHs 


CJJ300 


0OJ90 




-<p 


OOIIII 


1 00 DO IT. 


7rta 


P5 


MM 


apitiMT 


PUSH 


AP 


imisT save runs 


mm 


19 


00410 




Lb 


A.C 


(GET CHAR IH A 


-!i:l> 


ri20 


0O42O 




oa 


20H 


(MAKE LMM CASE IF LTR 


7FBD C0P47F 


004 30 




CALL 


man 


I SHIFT IF LETTER 


7FT0 


pi 


00440 




POP 


AF 


I RESTORE FLAGS 


7FF1 


C30000 


004*jO 


ansm 


at 


l-l 


(PRINT IT. 


7PT4 


PE1B 


004*0 


HHIFT 


a» 


7BH 


: HIGHER THAU 17 


7FF6 


JF 


00470 




CCT 




1 


7JT7 


PS 


0041 ■ 




l.,' 


C 


1 rrs. RETJRH. 


WW 


rsat 


00490 




CT 


Slit 


(LOWER THAN A 7 


7FFA PI 


00500 




!.r:- 


c 


I YES. RETURN. 


TFFH 


7S 


00510 




LD 


A.C 


;GET OHIO CHARACTER 


irrc tEjo 


00520 




xor 


2 on 


iBEVEME ITS SHIFT. 


;rrc 


4P 


00330 




LD 


L\A 


(AMI' PUT IT BACK. 


7PIT 


C* 


MM 1 




■JET 




.•ALL DOME. 


7FAB 




00550 




END 


START 


1 AUTOSTARTS 9 START. 


00000 TOTAL 


UttN ■ 


















1 : . .: 


■ 
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A NOTE ON BASIC 



Ever had trouble with loading a 
program but not find out about H until 
you ware already using it This can be 
frustrating, but ll can be avoided eery 
limply. 

Whan a program goo* bad on a load. 
you generally Unit only the and haa had 
■ rouble loading To check whether thla 
haa happened, we can simply put some 
statement at the end. that program con 
trol will be tranetarred to right at the 
beginning 

The best way lo do this is to put your 
Instructions lor Ihe program as a 
subroutine. You then call lha subroutine 
from the tlrat lew statements II II 
executes without error, chances are mat 
the program Is alrlgtil H thete Is an error 
in Ihe program, such as line number 
errors due to the read operation, then Ihe 
program will not llnd Ihe subroutine and 
an error message will be given directing 
the uaar to the line number and cause ol 
Ihe error 



(Conr'nued from p*g* 71 



Want to save both space the TIME In 
execution ol your programs? Silly 
question, everyone doesl But. it's a 
wonder that hardly anyone programing 
In BASIC uses Integers, particularly lor 
loop Indices An imager variable lakes 
two bytes ol storage space In memory 
compared to seven tor a single precision 
variable (the default type lor all BASIC 
variables) This savings in space also 
translates Into a savings In speed In 
loops Even more apace can be saved by 
using a DEFINT to define the variables at 
ihe beginning of the program and save 
Ihe space where the % sign would be to 
type Individual variables as integers. 

Since there is no standardization In 
BASIC for integer variables. It would be 
useful to Introduce one. It we use the 
convention of FORTRAN, that all 
variables mat begin with l,J.K,LM, or N 
are integer variables unless specifically 
typed olherwtse, then everyone would 
have an easier lime malting efficient use 
ol printed programs. 



AUTO-GRAPHICS 



PHASE 80. PO Box 2177. Richardson 
Ta 75060 announces ihe availability of 
AUTO-GRAPHICS A L1 4K utility 
program which takes the drudgery out or 
using complei graphic displays. It 
enables the user lo quickly create com 
plei graphic displays with simple m 
toractlve commands and inslanl visual 
feedback. Any or all of a display can be 
saved on cassette tape and later read In 
and diaplayed II is available on cassette 
lot $14 95 postpaid, with full instructions 
Included 

PHONE DIRECTORY 

Just introduced by RADIO SHACK la a 
motor -driven automatic phone directory 
which is said lo save time and provide 
quick, easy access to telephone num 
bers or oihor alphabetized data. Proas 
any of its 15 buttons and It instantly in 
dexes to Ihe appropriate holders ll in- 
cludes enough pressure sensitive paper 
labels tor 380 names, addresses or oih*< 
Information ll operates on two "C" sue 
batteries and is priced at $24 95 at most 
RADIO SHACK stores and participating 
dealers 
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Business 
Computing 



SYSTEM ANALYSIS 



John Strader, CPA 



My second article in thai sane* will deal with the 
actual selection ot accounting software. This article 
will give information which you should consider m 
selecting specific software systems or programs It is 
designed so that a "yes" answer lo any question 
would be good quality, although not necessarily in all 
situations The following may be used as a place from 
which to start; it is not all inclusive and should be 
modified to suit your own situation or circumstance 

t General hardware and software considerations. It ts 
important to determine your needs before software 
and hardware selection begins. If you want stan 
dardned programs realize that manual procedures 
may have to he changed to fit the computer program 
In addition your forms will probably need lo be 
rhanged and your personnel will probably have to be 
retrained The plus" is that this type of software is 
generally less expensive 

If you want customized programs you can get the 
software 10 easily tit your operation and many of the 
forms you currently use may be incorporated 
Customized programs will generally cost you more 

With both of ihe above it may be well to consider 
who will be doing the program maintenance. 

The above, and those items which follow, should be 
kept m mind when writing up a request for proposal 
1RFP1 to hardware and software vendors Any RFP 
should he very specific and detailed 

2 Hardware requirements. 

Things to consider here are the speed of the system, Is 
there adequate disk and main memory space, and 
adequate printing speed? Is spooling (the ability to 
both enter and print data simultaneously through the 
use of system interrupts) supported/ Will the hard 
ware system and printer support word processing? 

3 Software requirements 

Whet type of software and disk operating system w>H 
be used? Which computer language? Will the disk 
operating system support multiple terminals? What 
Type of software development aids are available? 

The software should be adequately documented, 
both the manuals and the code itself Standard soft 



ware should be easily modified and adapted to you' 
system Input routines should be designed to minimize 
input It should automatically place the decimal points 
and provide sequence numbers where applicable. 

For large data base programs the software should 
be able to recover vacant disk space. There should be 
an audit trail, and the software whould be able to cope 
with electrical power outages by using disk files with 
automatic periodic saving of array files to disk 

4 General Ledger 

Is it integrated with payroll, acccounts receivable. 
inventory, accounts payable and a cost system? It 
should print the following reports general ledge' 
accounts, trial balance, balance sheet income 
statement, statement of retained earnings and a 
statement of changes m financial position It should 
allow footnotes to statements, and should 
automatically prorate and post receiving entries suet 1 
as depreciation, rent, insurance 11 should post year 
end entries, close files and consolidate G/L files 

5 Inventory System 

Points to consider here are. Is there an economic order 
quantity and 'Border point m the system? Is there a 
model to determine the reorder point and economic 
order quantity? What model is used, and can it be 
changed or over ridden manually? Can you review 
each item in the system and the amount on hand? 
Does it include price ono can it figure gross cost fo- 
each item? Will it print out a purchase requisition or 
order, and can it be integrated into the general ledger 

6. Accounts Payable 

Accounts payable should have a check writing end 
purchase order entry routine Is it integrated into 
inventory or general ledger? It should tvtve search 
capability to automatically search files for payment 
dates and discounts it should be capable of preparing 
a cash payments journal and or a purchase journal 

' Payroll 

Will the payroll program print out quarterly reports and 
W-2 s? It should figure withholding and FICA without 
entering data or rates for each employee. It should 



36 



SOUS JOURNAL JULYtAUG t»?9 



print qui a payroll journal at well as payroll slips Is It 
integrated with standard cost or job cost systems and 
ycur general ledger? It should print out checks. 

8 Accounts Receivable 

Some things to consider here are: Printing out a sales 
journal cash receipts journal and is it integrated into 
the general ledger? Will it enable you to Invoice and to 
prepare statements 7 Is there an aging report ol open 
invoke* and accounts' Will It print a customer list and 
mailing labels? 

9 Cost accounting system 



What type of coat system: Standard cost, job cost or? 
Does the cost accounting system comply with IRS and 
cost a ccooun ting's board regulations? Can you figure 
overhead by sales, hours, equipment use or other 
basis? Is it integrated with the general ledger to reduce 
data input? And, is there a good audit trail? 

Next Issue, we will look at some specific business 
programs. As we stated before, we will evaluate 
business software and documentation which is sent to 
us. Send your documentation or evaluation copy to 
the Journal, PO Box 7112. Tacoma. Washington 
96407. 
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Richard L Hackney 
Western Kentucky i 
Bowling Green. Ky 



MAINTAINING 
EDITABLE LISTS 



1000 This "'program' lisling suggests now one may m*rl 

1100 oUhestatemenrmanagirig and lino etiiimi: ■ " , '" ,, ' v 

1200 of LEVEL II Basic tlseit without prog»ming 

1300 The trick is lo Heat the list as. i ll were a Basic 

1400 program The lines in the list should imnumb* 

1500 sequentially as In a Basic program 

1600 space between line numbers lo pernni idt*t insertion 

1700 of new lines litems. Each line could- on lam ui 

1800 255 characters, with a noririumericai '.naracter is ffw 

1900 first character (other than spacesi following the line 

2000 line number For example 

2100 

2200 iirst Hem description quantity 
2300 second Hem description quantn-. 

2400 

2500 The program is never to be run rath-r il is simi 
2600 a sequential file which can boss .led CSiv- 

2700 CLoaded, Listed and LListed Lir - •■"• lo 

2800 deleted on the basis of their slatenM'iii numbers and 
2900 editing within a line is facilitated by inn powerful 
3000 edltcommand3ol the Level ll Bj 
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SOFTWARE Q «*"» 

review: STAR TREK FOR THE TRS80 
••••••••••••••••••••••••••••••••••• 



There are versions of Star Trek tor 
almosl every computer tn general use, 
ana this popular game has not been 
negleclad by TRS80 fans Five versions 
are reviewed in Ihlt article 

Spacti Trm* ll by Ed Jugs, distributed 
by Instant Sottwaro Peterborough. N.H.. 
03458 at $ 7 95 The Level I version ap 
peared In Kilobaud In October. 1978. 
(Star Trek is Included among the 100 
programs in Library IX. available Irom 
this magazine for (49.50 ) 

Qttactic Blockade Runner by Tim 
ilnllan. Irom Mad Halter Software. 219 
ashington Ave.. Chelsea. Mats. 
150, for $9.96; Star Tn* III. by Lance 
cklua. available from (he TRS80 Sol 
ire Exchange, 17 Briar Ctifl Drive, 

i 03055 lor $u 96nmerrs*, by Joshua 
ijvinsky, available (torn Personal Sof- 
tware. PO Boi 138. Cambridge Mass 
02138 for $14 95 

All five of these programs are lor one 
player, with (he computer as the op- 
ponent All eacepl Time Trek take from 1 
to 2 hours to play. The lower levels ol 
Time Trek go much faster, perhaps V> 
hour. 

Space Trek u suffers from being the 
earliest version out Allot the others have 
apparently seen it and have added extra 
•eatures Instant Software does offer a 
good deal. Including six programs and a 
small instruction booklet tor $7.95, com- 
plete with a soft case lor the cassette 
The instruction booklet is sized lo fil in 
tne bo*, a nice feature The six programs 
are a graphic title. Instructions, and the 
game in both Level I and Level it 

The display Is rather static, with 
Kiingons. Stars, the Enterprise and star- 
hues Indicated by K. * E. and B. and 
movement only when you fire a torpedo. 
fire phases, or use the impulse drive on 
the Enterprise. The game Is pleasant. 
'hough success is determined more by 
luck in finding starbases than by skill. To 
win, you must destroy 25 Kiingons, and 
play takes about an hour 

Star Trek from Library tOO has a 
display much like Space Trek, with ad- 
ded long range scan at I he top of the 
screen and status and damage reports 
arranged around the central display 
While still using K. E. B. and \ Ihlt Is a 



much different game For one thing It <s 
real time, and you are penalized if you do 
not think fast and type In full commands 
like TORP. SCAN, and MOVE One nice 
touch Is a routine thai whites oul the 
snort range scan several times when 
torpedoes or phasers are fired My chief 
complaint about this version Is that 
spelling Ihe command counts and a 
double letter problem coats a stardate 
Despite the real time feature, play is nol 
much different from Space Trek II No 
other version otters aa much information 
on the screen at one lime. 

Stai Trek III t>y Lance Mickius is a 1BK 
version with a lot ol nice features II Is 
the only one of the versions reviewed In 
which the starehlps, stars, base*, and 
planets are nicely pictured. When you 
give a command, the appropriate crew 
member Irom Ihe TV snow gives Ihe 
report or asks for the necessary data, In 
addition to doing battle with the 
Kiingons, there is e subsidua/y mission 
of searching for class M planets You 
even have backup systems, such os a 
ships computer that can recall all 
quadrants you have scanned U your long 
range sensors have been knocked oul of 
commission. When you lire a weapon, 
the screen shows your ship firing, then it 
clears and shows Ihe other ship 
receiving Ihe blow, if your aim was ac- 
curate. The situation is reversed when a 
Kllngon llres on you. II a ship is 
destroyed, you see it blow up The only 
objection I had to this piogram was that I 
thought ihe pacing a bit slow 

Galactic Blockade Runner is nol 
Dasod on the TV show Star Trek, but has 
enough in common with the others to be 
worth mentioning In Ihe review For one 
thing, It is a good program for anyone 
who wants a little more variety than the 
Enterprise can otter, it is very tough, and 
i have nol been able lo win yet. One 
reason for tnis is that you have lo learn 
to plan ahead, and you have to consider 
the distance lo youi destination, star 
dales left, speed, and the distance lo the 
enemy in determining your tactics The 
most frustrating part about Ihe game is 
the frequency with which your weapons 
miss I once had eight consecutive 
nuclear torpedoes miss al optimum 
range Eventually the liaxan fighter 
destroyed me without suffering any 
damage The display shows the view in 



ironi ol yout ship, with the enemy m Ihe 
i Mies of Ihe screen If he Is within 1000 
miles Tour status is displayed on Ihe 
left and Ihe enemies energy and range) 
are displayed above his ship, 

Time Trek Is the mosl oaolllng and 
challenging of the versions tested It is 
In machine language, and Is real lime. 
There are ten levels of play and I have 
seldom survived even 1 atardale al Level 
10. Your mission Is lo destroy Irom 8 to 
80 Kiingons before they destroy your 7 or 
8 starbases The higher the level, the 
mora Kiingons and the tougher they 
fight. You may be fighting a battle In one 
qudrant whan an SOS flasnes on the bot- 
tom ol the screen from a slarbeae under 
attack m anotnoi quadrant Only a few 
seconds after a iter base is attacked. It is 
destroyed, unless you destroy the at- 
tackers first The whole display Is 
animated, and the Kiingons maneuver aa 
Ihey attack you and the aterbase Your 
Impulse drive operates by the arrows, 
and n is posaioie to dodge phasers and 
torpedoee l( you are leal enough. 
Usually. I am not It took me about six 
games before I was able to hold my own 
al the lowest level and It will be a long 
time before I can lake on level 10. This is 
truly a brilliant program by Joshua 
LavmsKy. and even uses Ihe reley in the 
computer to produce sound when Ihe 
weapons are llredl 

RECOMMENDATIONS 

If I had to choose only one of Ihe 
above. H would certainly be Time Trek 
Galactic Blockade runner oilers enough 
change that it might be a good second 
choice, after I already bought Time Trek 

People interested in learning how to 
add Interest to games should be familiar 
witn Star Trek III It has the best picture, 
uses the names ut the figures on the TV 
show, and might be a top choice II It 
were paced (aster and had real time ac- 
tion I still enjoy playing a version ol 
Space Trek that i modified to include an 
Intermedials range scan and galactic 
scan, and anyone who oftera good 
programs, nicely packaged in two vet 
sions, lor $7 as ought lo be encouraged! 
I do not en|oy the Library 100 version. 
mainly because I don't like to type In the 
words ll || had one letter commands I 
might enjoy H mores) 







COMPARISON TABLE 










Library 100 Glactic 






Feature 


Space Trek, 


Star TreK Blockade 


Suv Trek III 


Time Tre* 
Excellent 


Challenge 


Good 


Good Tough 


5ood 


Graphics 


Fair 


Good Good 


Vary Good 


Very Good 


Pacing 


Ma !■-■ i" 


Slow Moderate 


Slow 


Fast 4 Slow 


Content 


Fair 


FM Good 


Vet* Good 


Very Good 


Vefue 


Good 


Good Fair 


Good 


Good 


Animation 


Little 


Some Some 


Boot! 


Exellent 


Cost 


$7.05 


$49.50 $9 05 


$14 95 


$1495 


Medium 


Level l&IIBASIC 


Level ll BASIC Level mil BASIC 


Level ll BASIC 


Level IBM SYS 
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IF YOU HAVEN'T SUBSCRIBED TO 
SOFTSIOE, VOU MISSED 



Level 2 Sompler 

WARFARE 

Menu-driven anthology includes Olve 
Bomber, Pillbox, Sink 'Urn and Tank. 

Level II. 16K $7.05 

AMAZIN' MAZES 
Robert Wallace 

Oft you go Into the maze; but stop for a 
moment I The passages are changing 
find the fastest way out ol (his 
nightmare — the sooner you escape, 
the more points you'll score 
Level II. 16K $7.85 

BACKGAMMON 

Scott Adams 

A completely different program, Just 

waiting to beat you ... It plays a pretty 

mean game, so be prepared! 

Level II, 16K $7.95 

CHESS COMPANION 

Michael Kelleher 

Combines chess clock features with 

ability to record moves while action Is 

fast and furious. Listing may be 

reviewed at any time. 

Level II. 16K $7.95 

MASTERMIND II 

Lance Mlcklus 

This version ol the classic game lets you and the computer 
take turns making and breaking secret codes. Takes less 
than three seconds for computer to make a guess and It 
can usually figure out a code by the fifth try. Object tape 
which loads In addresses 7600 to 7FF0 using SYSTEM 
command is supplied , Program is also DOS compatible, so 
object code may be stored on disk using TAPEDISK and 
then executed under DOS. A challenging game of logic 

$7.95 
$20.00 



OCTOBER Cribbage, State Capital Out/. Death 
Star. Pillbox, Calculator 

NOVEMBER End Zone. Troll » Gold, Stopping 
List, Level I to Level II. Octal to Hex Convert'. 

DECEMBER Santa Paravia, Mortgage Calculation, 
Stx Million Dollar (MOK) Clock. Spelling Bee 
Biorhylhms 

JANUARY Round the Horn, Kiddy Slot, Writing 
Good Computer Games-Part I. Ten Pin Bowling. 
High Speed Graphics, Compul-A-Sketch 

FEBRUARY Form 1040, Writing Good Computer 
Games-Part II. Concentration. Elements Qui;, 



Cribbage Update 

HOW MUCH LONGER 
CAN THIS GO ON? 



12 Issues — $15.00 
Sotlside Subscriptions 
Box 66 Mlllord. NH 03055 
603-673-5144 




ir lit Mr C»H Or lv« 
Mino>d. Ncn* MtmfWfii'P 



A comprehensive package ol business soli ware lor 

32K dual disk (and larger) systems. Subscriber s to- 

oeiveslx interactive modules; Inventory Control, 

Accounts Receivablo'Pay able. Payroll. Goner al 

Ledger, Mail List, and Text Processor. Modules 

have been sold Individually for as much as $150 00. 

Subscribe and receive all six. fully documented, on 

diskette tor $200.00 m . 

Sound good? It is!! 
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TRS-BO 

Software Exchongc 

Briar CUH Orr#« Miltwrt. M*wH«rNp»hli«UDU 
SEND FOR OUR COMPLETE CATALOG TODAY! 



Dedicated to the serious programmer, liom 
enthusiastic hobbyist lo professional 

PREMIER EDITION FEATURES 
Inkey Routines by Lance Michlus 

Simple SIMON -monitor 'disassembler 

M men in BASIC 

Variables In Level II now to determine 
which variables have been used 

Subscriptions: 4 issues. 510,00 
POBov66 Millord, NH 03055 
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THE DATA DUBBER 
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DATA 

DUBBER 
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PRODUCT REVIEW 

The Dam Dubber' la ■ rather unique 
acceesory (or I he TRS80 system While 
thai cassette data storage system Is 
highly 'enable, many high ■peed 
duplicated tapes (most commercial 
programs) at* difficult to load. The Data 
Oubbe' was designed to minimus fid- 
dling with the volume and missed loads. 
In addition the Dubber can be connec 
ted between two recorders lo make 
duplicates ol any tape. Including thoa« 
in machine language. 

The only eitomal connections are two 
cords ending In plugs and a lack, all 
located at the upper end of the Data 
Dubber cue. One cord, the "mattes" 
connects to (he EAR connection ol the 
tape recorder supplying the data The 
cord Irom the THS80 normally going to 
EAR is now plugged into the Dubber 

The Dubber Is battery operated, but 
there is no switch to forget to turn on or 
olt' II automatically will sense the 
presence of data and turn Itself on and 
oftl The battery is a standard 9 volts and 
lain about three months with normal 
usage 

The circuit used is active, and con- 
sists basically ol a threshold detector 
and two Schmltt triggers li re-creatoa an 
almost perfect squats pulse and 



provides a solid base Una. Iree of hum 
This makes the signal from the recorder 
going back to the TRS80 look exactly like 
the signals which originally came from 
the TRSAO 

While the Data Dubber can be a god 
send to the TRS80 owner. It cannot 
resurrect life A program tape which has 
all the pulses recorded (even though 
ihey may be horribly distorted) is 
loadable with the Dubber. li cannot sup- 
ply pulses Irom a "hole' or blank spot on 
tape. 

Wa ^av been using a Oubber at BO-US 
lor several weeks and have not yet found 
a tape which would not load, even 
though there were several which 
previously would not loed under any 
conditions, and several others which 
loaded with much difficulty. Since there 
la no switch to worry about, It just arts 
there behind the cassette recorder, and 
makes an tapes (so far) load on the flrat 
paas. 

The Data Duboer comas in a vary at- 
tractive case. Is clearly labeled and the 
utmost in simplicity lo use. II li available 
from the Pe/rpnera' Peoprt, Box 524. 
Mercer Island Wa 96040 The price is 

nftftst 



software unlimited 


A. 10-16K Level LI games on 
cassette 

B. I0-16K Level II games on disk 


$20.00 
$25.00 


Bl. 32K Star Trek + 8 16K games 
(from B above) 

C. Term/MP-Improved Radio 
Shack "term" (for RS232) 
program which can be loaded 
anywhere in Ram 


$25.00 

1 

$5.00 cassette 

$10.00 .h-i 


D. TRENRS232 - Program to drive 
a TRENDATA typewriter from 
Radio Shack's RS232 - loads 
anywhere in Ram 


$6.00 cassette 
$11.00 disk 


SOFTWARE, UNLTD. 
3411 South 90th St. 
Tacoma, Wa. 98409 
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t*nt software 
t rens f are your trs-80 Into ■ 
cockpit full of elaborate controls. 
take off, lane, arm do acrobatics 
one* you trim ho* to fly. 
4i level 1, 164 level 2 I 7.9$ 



SMI 



Instant software 
16 hole! of graphic golf with seven 
club*, alio clonic peg gen*. 
H 1ml U 16* level ^ J 7.« 




H?'.,W!&,« 



one of tha first found effect 

genes, progra* based on 'star 

wars' with manual positioning of 

crest-hairs, gn tleaw, a d 

scoring. 

4* lfvfl 2 \ 6.9$ 



mysj 
frea f 



Fro* software associates 

enter scores to have your TRS-80 

play awstc. better sound and 

easier to us* than other tlarllar 

progren. 

1M 1ml 2 > 9.95 




tostf? 



systems software 
break through five-wall barricade 
In this machine language action 
gene with 96 option!. 
4k level 1 or ? \ 14.95 



$S JlffiffSSi 



it If. 



two-player tactical IMC* game, 
create your own scenarios or ut* 
on* of Utl«i cescrlbed 1r. battle 

manual, for serious gaailng. 
16k level 2 1 16.95 



*S 



01 



GZ 



the house 



big-tlea casino gents of chan 
slot M chine, trips, blackjack and" 
roulette. 'il«Ul Sl»Har to 1 

|B level 2 1 14.95 




te 



thr** program for Insights Into 

!our body, lifestyle end heredity: 
iorhy.hr, diet end longevity. 
l£t levfl 2 % 14.95 



produces symbolic lables; output 
to video, tape or printer, editor 
asse*Mrr can load tapes. If you 
own editor/assembler, (omplete the 
package »t|> this program. 
16k level 2 % 19.95 

L£VEL 3 

frooi &7 tty mtcroioft 
authors of level 2 basic take the 
neat stti. adding *ore potatr to the 
trs-flD. acre graphic end editing 
eo***endi. disk basic Instructions 
without disk drives, and Raich nor*. 

Slace your order new. 
6k level 2 I 49.95 

"from software associate* 
two 'lysine saver' program allow 
evtklng backup copies of s/stev 
tapes and loading any, even 
non-can! itjuous, system- program to 
die*. Includes how to put 

wicrochess 1.5 on disk. 
16k level 2 I 14.95 



<*•$ 



racet computers 
collection of fast, easy-to-use 
machine 'anguag* routines. In 

memory sort with multiple variables 
and keys. array read/writ* to 

tape; compress, uncompress and move 
data. icreen scrolling, save 

screen displays, plus. specify 
aeanory il<* In ordering, 
level 2 l 24.95 



software associates 

renumber program! merge programs 1 
all references are adjusted, for 
quality programming th»s machine 
language utility is a necessity. 
16a. 32k and 48k versions for both 
level ? and des all en on* Up*. 
114.95 



Computer Cablevlslon, Inc. 
76)7 42nd st -• Washington DC 20007 



QYe S . pleese send 

— nns 



price 



nrtf I T 1 1 lllf Ml Mil 11 Ml Mil 111! tl 

II Insiders " *" 

II TRS-BO harwere Journal 

It artth machine software 

II $7.50 for tla Issues 



II 
II 
II 
f 111 1 1 1 1 1 1 1 1 1 1 1 II 1 1 M II II 1 1 1 1 1 1 1 1 1 1 



at* for tamp 1 * * ,th order 



dealers for over 25 trs-ftO software houses 
program welcomed 

Tuiu-TWHi is costin g 




ItW* 



postage: 
total: 



W 



nine: 



aodriss • 
city, stale" 
6 code 



D Chech oayabit to 

ccaaputer cablevlslon. Inc. 
, k,v riDUM K a*a**l Ceee 
3 VISA eep date: 

^ card nueearr: 



signature: 



RENEW THAT PROGRAM 



(C) 1979 Bill Roberts 



BUI Roberts 
Virginia Beach, Va. 

This Renew program Is generalized and will 
work on either the tape or disk version of Basic 
(with disk make sure you declare the same num- 
ber of (lies). One small word of caution - after 
using the renew program don't attempt to RUN 
or UPDATE HI Not all the pointers are reset. So 
you need to first SAVE or CSAVE It out and load 
It back In. this action will automatically reset the 
necessary pointers for you. 

This program takes advantage of the fact that 
location 40A4 always contains the address 
where the programs (L2 or DOS) start, regardless 
of the number of files. The Renew program goes 
to this location, gets the address of the forward 
line pointer (now Zero - the result of NEW) The 
program adds 4 to this start address to get past 
the line number and Into the text. With the A, B, 
end C registers previously set It does a search 
for the end of the line (a 00 byte). When It finds 
the end, HL contains the address pointer to the 



hi ita M m r« n wtkU — W fc | Hw rwwwal of l*rt 
fntjrwma. N««, Mr. Rotorif k«i com* up whfc ■ dtvar woy tt 
*>H*Mll 161 aria DOS. TbH bat « iswW spfMl »• Hmm 

w»*m 4bk ra-Wsli 4*ring aiacvtUn. 

next line number. This (HL) Is what has to be in 
the locations cleared by the NEW/RESET Once 
HL is stored In the address pointed to by 40A4 
the commands LIST. SAVE, and CSAVE will work 
again. 

The Basic program which follows POKES the 
Renew routine Into memory. Though this routine 
can run anywhere In memory, It Is set up for 16K 
at present, and will load starting at 32741 unless 
overridden. To locate this routine above 16K 
remember to use negative numbers. 

After using this program to poke Renew into 
memory, create a SYSTEM tape (using TBUG) 
and a DOS command RENEW/CMD (using 
DUMP). This provides two ways of loading the 
object code without distrubing the Basic 
program In memory. The RENEW/CMD Is stored 
with NO starling address so It doesn't really 
execute on DOS command. It is executed using 
SYSTEM command after Basic is reloaded* 



— RENEW — 



RESTORE PROGRAMS LOST BY "NEW" OR "RESET" (DOS) 
DON'T RUN OR UPDATE THE PROGRAM ONCE IT IS "RENEWED" 
"CSAVE" OR "SAVE" IT FIRST, THEN RELOAD TO UPDATE 

COPYRIGHT 1979 BILL ROBERTS 



10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

60 REM 

70 REM 

80 REM 

90 REM 

100 INPUT "LOAD ADDRESS" jA 

110 IF A - A » 32741 :REM HI LOAD ADDRESS FOR 16K 

120 FOR X = A TO A + 25 

130 READ N 

140 POKE X,N 

150 NEXT X 

160 END 

170 DATA 042,164,064,062,000,071,079,035,035,035,035,237,177, 

221,042,164,064,221,117,000,221,116,001,195,112,000 
180 REM 

190 REM FOR THOSE INTERESTED, AN ASSEMBLY LISTING FOLLOWS 
200 REM 



210 REM 


2A 


A4 


40 


:LD 


HL, (40A4H) 


220 REM 


3E 


00 




:LD 


A,0 


230 REM 


47 






:LD 


B,A 


240 REM 


4F 






ILO 


C,A 


250 REM 


23 






:INC 


HL 


260 REM 


23 






:INC 


HL 


270 REM 


23 






:INC 


HL 


280 REM 


23 






:INC 


HL 


290 REM 


ED 


B1 




rCPIR 




300 REM 


DD 


2A 


A4 40 


:LD 


IX, (40A4H) 


310 REM 


DD 


75 


00 


:LD 


(IX+0) ,L 


320 REM 


DD 


74 


01 


:LD 


(IX+1),H 


330 REM 


C3 


70 


00 


iJP 


0070H 



> 80-U.S. GOES TO THE FAIRE 



» 



The Fourth West Com! Computer 
Falre on Intelligent machines lor horn*, 
business and industry was held In San 
Francisco on May 1 1, 12 and 13. 1979 
The Falra waa mora than fair, it was 
great. The llrat day ol the Fane dawned 
bright and clear (as all good fairs 
should), and attendees poured through 
the doors and awarmed through the 
aihltHta This continued through 5 pm 
on (he third day. alter which the weary 
(but hopefully richer) o.rilbitnrs packed 
up I heir displays end headed lor home 

There waa no one "show stopper", 
ralhet there waa a good range ol ■" 
foresting, amusing and somelhlmes ex 
citing displays II seemed like almost 
every third or lourth booth had a TRS BO 
doing something, Soma of them which 
caught our attention were. 

MICRO COMPUTER DEVICES had an 
S 100 adapter connected to a IRS-BO. 
and were producing glorius full color 
displays using a color TV 

HUH ELECTRONICS waa showing oil 
two versions ol S-iOO bus adaptors for 
lheTRS-80. 

Music was being created on THS«0 by 
GOMPU TALKER and others end J S 
Bach would have been proud, 

Eight inch dish Mega Bo»" was being 
displayed by MICROMATION and boasts 



up to l meuabyiu on lute 

a lienT dink lot the TRS-BO waa 
*yed by I OBU anil this one boasts 
ol no less than ID mugonyteal 

MAIIBU DESIGN GROUP was 
showing o" pnniera with very high 
resolution graphics in e word, 
exquisite! 

JADE occiipiiia a commanding 
position In ihe mam display hall It must 
have lahun a wim liuck to bring In Iheu 

...ti.|,-,r.p lit;, l.i, 

BYTE magajliiB wan there, with copies 
ol Ihelr now spin oil premiere Issue ol 
"Oncompullny' 

MACROTHONICS nisplayed then M80 
ham irrlertece h> Hie TRS-flO. It Is a 
complete morse code end RTTY system 

EXATHON CORP demonstrated the 
IRS 80 model ul lha Exalion slnngy 
floppy, an innn-.iiive mass sti 
subsysluni uoiny s continuous -loop lap* 
water wMotl MmWl *0K bytes ami 
loads about 4K m fl seconds. 

AUTOMATED SIMULATIONS, creators 
of "Starlleel Orion" hove a new program 
"Invasion Oi ton", which waa shown 

We saw CPIM in npAiation nn the TRS 
B0...FMG Corp qmIiI PASCAL would be 
oul lalur this summer . RACE? COM 
PUTfcS slip- II GSF 

(Generall-ed Subroutine Faculty) and 



DOSORT.adlsksort The MAD HATTER 
was there with loads ol snltwam thero 
were at least two different lite pens 
being displayed several daia base 
manegemani systems wans on display. . 
Allen Gtlder showed his TBUG ac 
cessoriei TLEGS and TSTEP Howa/tf 
Goeman ol HSE COMPUTRONlCS INC 
waa i her*, as were Bill McLaughlin 
Joll Laeman ol TRS SO COMPUTING and 
Ed Thorn, ol T PAL Manny Garcia 
his associates were then cago 

wlin all ol their soil and hardware. Peter 
Jonninga. SMALL SYSTEMS SOF- 
TWARE, RECORTEC, INTERFACE AGE. 
KILOBAUD the list goes on wore all 
there 

60 US was there too, way back in Ihw 
■-■ what you gel who* 
sign up lalell, showing oft a brand new 
Leo C program called Bee Wary ". due lo 
be released In September Judging horn 
the crowd raacmif. rl will be as popular 
as Android Nlrn (we wondered what Lao 
would do for an encore) 

II waa ill log. hectic end fun About the 
ming we didn't see there was a 
i iii'ollod reverberating 

pluaimtullc bailie platel Will we be ul 

Ihe Slh Annual Faired' yon bet, and 

wllbbelhianl firt((lW( 

M Senmtat 
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INTERFACING 
THE INTEGRAL 

DATA 125 PRINTER 



Truman Krumholz 
Springfield, Mo. 



Truman tells about his effort to Interface the Integral Data 
IP-125 printer to the TRSBO with a minimum of lues. The manu- 
script he submitted was printed on the IP-125, using the TEXTBO 
text editor described In our Jan Feb 79 Issue. The IP-125 
Is available from several sources (check our advertisers!) for 
about $800.00- 



I am using an Integral Data IP-125 printer with 
my TRS60. Mine has one option, the printer con- 
trol, which costs an additional $39.00. I would 
strongly recommend this option for use with the 
TRS80. since It includes an automatic line feed 
which Is lacking on the TRSSOlAIso, wllh this op- 
tion there are four different print densities (under 
software control) and the ability to enhance 
characters. II also includes the ability to select 
and deselect the printer (also under software 
control). 

The IP-125 requires a four microsecond or 
wider strobe pulse. The TRS80 parallel printer 
port provides a 1.6 microsecond strobe pulse. 
The IP-125 acknowledge signal is low when busy 
whereas the TRS80 busy terminal must be high 
when busy. These two signals are not com- 
patible Also, some way musl be found to 
achieve proper timing of the acknowledge signal 
from the printer. 

The way I did this, was to generate a sort of ar 
tificial busy signal after each character is sent to 
the printer. If this is not done the printer omits 
characters and finally hangs up. This method 
slows down the transfer of data, making the 
timing much less critical. The transfer rate is still 
faster than a 2400 baud Interface. 

One half of a 74LS123 one shot Is used to 
make the strobe pulse for the printer (see Fig. 1). 
The TRS80 strobe pulse is led to the one shol 
and the output pulse, now five microseconds 
wide, is used for the printer strobe pulse. This 
strobe pulse Is also fed to the other half of the 
74LS123. This one shot is triggered by the 
trailing edge of the strobe pulse. The timing of 
this one shot generates an output pulse ap- 



proximately three milliseconds wide. This Is the 
artificial "busy" signal. It Is low when busy and 
high when not busy. The printer acknowledge 
signal has the same polarity These two signals 
are fed to a two input nand gate (74LS00). Bothfl 
signals must be high (not busy), for the output of^ 
the gate to be low. This low Is the "not busy" 
signal for the TRSBO. 

All data lines are fed directly The five volts for 
fhe Interface is obtained from the printer (Pin 25) 
A piece of pert board one and one-half Inches 
square provides space for the Interface. It Is 
located at the printer end ol a five foot cable. 

There are a few things to remember for anyone 
using the interface described here. There are no 
"OUT PAPER" or "FAULT" signals provided by 
the printer. OUT PAPER on the TRS80 Is pulled 
low by this Interface. FAULT is made high by the 
TRSBO. I did not provide a "printer on" signal to 
the TRS80; it thinks the printer Is turned on, even 
when It Isn't. This could easily be changed by 
using the printer five volts as control. I chose not 
to do this. If you POKE the printer driver address 
into the display driver as described In 80— US No 
2. then you should use the printer's smallest 
print. The reason for this Is that control code 31 
Is the printer code for the smallest character 
(16.5 CPI). If you are using larger characters, a 
CLS In the program will change the print to the 
smallest size. Any programs written for a printer 
will function normally. 

I am very happy with the IP-125. I particularly — 
like the auto line feed, the software controlled^ 
character style and although I don't have the 
lower case modification lor the display, the IP- 
125 will print lower case« 
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TRS-80 

Expansion Interface 

Line Printer Port 
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IP-125 
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Data 

Data 

Data 

Data 

Data 

Data 

Data 




Strobe 



(A1 - 74LS123 
(A2 - 74LS00) 



+ 5 
Ack 



Sig Gnd 




♦-Front 



Left end of Expansion Interface 



Figure 1 
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•mm allow, von hi .-fianga hna miintwn Ira rwtad arr * SYSTEM caa 
•MM In la»*l II an inMturtton raid, and apacial Inwiuction* tor Jumping 
Hit iif?w m « DOS fi c— inaral Mr til 



WIN21 
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mimmon card DOS mama-lion* and a aaaxial kavWwril layoui (aid 
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P O. Bo* 484 Port Townsend. WA 98368 
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Perer Prper picked two hi/«dred iitcfcfec peppers 
Two nunaroa picklsd pepper* fete/ Piper p*c*ed 
kV/ien Pefer Prpef ere one eighth at the puppets he plckev. 
On flow msny pickled peppers did Pelf Piper g-i tit • 



TRS 80 DISK DRIVt WOIS? 

MEMORY LOSS? ERRATRIC OPERATION? 

DON'T BLAME THE SOFTWARE! 
Power Line Surges & Hash could be the culprit 
Floppies, memory & processor often Interact 1 
Curb damaging Surges & Hash with our 
ISOLATORS and SUPPRESSOR/FILTERS 
Eliminate Equipment Interaction with our 
iirmjue ISOLATORS 

ISOLATOR (ISO-tA) 3 filter isolated 3-prong 
sockets, Integral surge suppression; 1875 W 

total load, 1 KW any socket $49.95 

ISOLATOR (ISO-2) 2 filter isolated 3-prong 
socket banks (6 sockets total); Integral surge 
suppression; 1875 watt total load. 1 KW toad 
either bank. $49.95 

Suppressor/Filter (SFK-31| 3-prong socket, 
IKWIoacJ $24.50 

Suppressor/Filler (SFK-33» 3-prong socket. 
1250 watt load S32-50 

PHONE ORDERS 1-617-655-1532 
BA. VISA & MC cards accepted 

£*£? Electronic Specialists. Inc 
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TRS-80 Quality Software 

AT LAST' QUALITY AT LOWEST PRICES COMMA I - 

AND SAVE... 



WORD PROCESSOR 
139 Complete 
ie» i stored In dtak 
easy to load 
tail llmiledbydls* 
sourest given 



ELECTRIC PENCIL 

tOTplus 

incasMiii' 

object flla 

by memory 
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Our word processor can be used l(n biggei |ubn such 
as manuals. Future enhancements include handling mailing 
lists, bollat plalas Buy direct and save DOS r*q 
INVENTORYrREPORT OOSKM 

9-dlglt alpha numeric key lor fast random access. Reports 
give performance, order Info, and formatted dump 

MAILING LIST Full Junctions Report or label! are 
selected, littered and sorted In apecltted order DOS reo, 
KB. 

DISKETTE DATA BASE'RFPORT DOSM9 
No user programming required. 1'K 

KEY RANDOM ACCESS U I ILITY DOS $19. 

MICRO ARCHITECT 
96 Dolhan St. 
Arlington. MA 02174 
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P O DOX 98223 
UCOMA WA 9849 
• 565 • 1415 




10-UJ. 

P.O. Box 7112 

Tocomo, WA 98407 



DAW & WRD PROCESSING 

SUPPLIES 

ONE AND TWO SIDH) ROW WSKS 

8 inch Floppy Disks 
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